- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
¦^´_ 6# Hsieh
·PÁ¶W¯Åª©¥D~~¥i¥H¥Î¤F
¥H¤U¬O§Ú¹ï³oÓµ{¦¡ªºÁA¸Ñ
¦³¤£¹ï©Î¤£À´ªº¦a¤è¡A¥i¥H½Ð¶W¯Åª©¥DÁ¿¸Ñ¤@¤U¡A·PÁ§A!
Private Sub CommandButton1_Click()
On Error Resume Next
ph = ThisWorkbook.Path & "\" '¬O©â¨úÀɮתº¸ô®| + \
f = ThisWorkbook.Name '¬O©â¨úÀɮתº¦WºÙ
i = 1
Do Until i > Len(f) Or Not IsEmpty(n)
n = Empty
n = CInt(Mid(f, i, 1))
If IsEmpty(n) Then k = k & Mid(f, i, 1)
Err.Clear
i = i + 1
Loop '³oÓloop¬O°w¹ïÀɦW°µ³B²z
p = Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
'³oÓP¬O?????
For j = 2 To p 'µæ³¾¦p§Ú¡A¥u·|¥Î j = 2 to 31 ¬°¤°»ò¥ÎP©O
fs = ph & k & j & "¤é.xls" '³]©wÀɦW
If Dir(fs) = "" Then ThisWorkbook.SaveCopyAs fs '°µ¨¾§b¡A¨S¦³¦PÀɦWªº¸Ü´N·s¼W¡A¦³¦PÀɦW´N¤£·s¼W¥H§KÂл\
Next
End Sub |
|