ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤À­¶¦s¦b«ü©wªº¥Ø¿ý¤º

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-4 13:22 ½s¿è

¦^´_ 1# ssooi

¸Õ¸Õ¬Ý

Sub ½Æ»s¤À­¶0804()
oPath = "D:\" & Format(Date, "yyyy-mm-dd")
On Error Resume Next: MkDir oPath: On Error GoTo 0
For Each sht In Sheets
  theName = oPath & "\" & sht.Name & ".xls"
  sht.Copy
  ActiveWorkbook.SaveAs theName, xlNormal
  ActiveWorkbook.Close True
Next
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD