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

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

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

§Ú·Q­nµ{¦¡¦Û°Ê¦bD¼Ñ·s¼W¤@­Ó¤µ¤Ñ¤é´Áªº¥Ø¿ý¡A¨Ã±N¤À­¶¦s¦b¸Ó¥Ø¿ý?
½Ð°Ý¦U¦ì°ª¤â¸Ó«ç»ò°µ~
ÁÂÁÂ
ÁÂÁÂ

¯Z¯Å.rar (12.97 KB)

¥»©«³Ì«á¥Ñ 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

¦^´_ 2# n7822123

ÁÂÁ³o¦ì°ª¤â!

TOP

¦^´_ 2# n7822123


¦n¹³¦s¦¨xlsx¡AÁöµMÀx¦s¦¨¥\¤F
¦ý¬OÀÉ®×Åܦ¨µLªk¶}±Ò
½Ð°Ý¸Ó¦p¦ó±Æ¸Ñ
ÁÂÁÂ

TOP

¦^´_ 4# ssooi


    ©êºp~~§Ú¬d¨ì¤F
«á­±§ï¬°xlWorkbookDefault´N¥i¥H¤F
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD