- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 13# PJChen
¬õ¦â¦rÅ鬰קï»yªk:
Sheet§R°£¥Ñ¥ª¦V¥k·|³y¦¨²§±`
For i = mDay + 1 To 31: xBK.Sheets(i & "").Delete: Next i '§R¤u§@ªí
§ï¬°¥Ñ¥k¦V¥ª§R°£
For i = 31 To mDay + 1 Step -1: xBK.Sheets(i & "").Delete: Next i
ÂŦâ¦rÅ鬰§R°£
¸Õ¸Õ¬Ý!!
Sub EX()
Dim Path$, File$, i&, k&
Dim Lastday$, mDay%, xBK As Workbook, BK As Workbook
Dim myPath$, xFile$, m$, h$
Lastday = DateSerial(Year(Date), Month(Date) + 3, 0) '¤U¤UÓ¤ë¤ë©³
mDay = Day(Lastday) '¤UÓ¤ë¤Ñ¼Æ
h = DateSerial(Year(Date), Month(Date) + 2, 1) '³]©w¤UÓ¤ë1¤é
m = Format(h, "M¤ë") '³]©w¤UÓ¤ë¥÷
Application.ScreenUpdating = False 'Ãö³¬«Ì¹õ§ó·s
Application.DisplayAlerts = False '¤@¯ë´£Äµ¥Ü°T®§Ãö³¬
Path = "D:\backup20060523\MDBView\³Â»¶¾Ç¶é\1.¤UÓ¤ë²z³f³æ_´ú¸Õ\ÀÉ®×\" '¨Ó·½¸ê®Æ§¨
myPath = "D:\backup20060523\MDBView\³Â»¶¾Ç¶é\1.¤UÓ¤ë²z³f³æ_´ú¸Õ\2_¼È\" '¥t¦s¥Øªº¸ê®Æ§¨
File = Dir(Path & "*.xlsx") '¨Ó·½ÀɦW
Do While File <> ""
With Workbooks.Open(Path & File)
On Error Resume Next
Sheets("1").Activate
[A2] = Format(h, "M/D") '¿é¤J«ü©w¤é´Á,¬°¤UÓ¤ë1¤é
ActiveWorkbook.Save '**¦sÀɤ£Ãö³¬
End With
Set xBK = Workbooks.Open(Path & File) '¶}±Ò«ü©wÀÉ®×
On Error Resume Next
' For i = mDay + 1 To 31: xBK.Sheets(i & "").Delete: Next i '§R¤u§@ªí
For i = 31 To mDay + 1 Step -1: xBK.Sheets(i & "").Delete: Next i '§R¤u§@ªí
On Error GoTo 0
For i = 1 To mDay
With xBK.Sheets(i & "")
.[A2] = .[A2].Value 'ȤÆ
.[B1] = .[B1].Value 'ȤÆ
End With
Next i
' For i = 1 To mDay '¦b¤u§@ªí¤¤´`Àô
' With xBK.Sheets(i & "")
Sheets("1").Activate
For k = 1 To [U1] '±NU1Àx¦s®æªºÈ,§@¬°ÅܼƦs¨ú¦¸¼Æ,¨Ì§Ç©R¦WÀɮצW¨Ã¦sÀÉ
[P1] = k '«ü©wÀx¦s®æªºÈ
ActiveWorkbook.SaveAs Filename:=myPath & [V2] & [G1] & " _" & m & ".xlsx" 'one by one ¦sÀÉk¦¸
Next
ActiveWorkbook.Close True '¦sÀÉ«áÃö³¬ÀÉ®×
' End With
' Next i
File = Dir
Loop |
|