- ©«¤l
- 913
- ¥DÃD
- 150
- ºëµØ
- 0
- ¿n¤À
- 1089
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-28
- ³Ì«áµn¿ý
- 2023-7-19
|
¥»©«³Ì«á¥Ñ PJChen ©ó 2020-2-10 18:18 ½s¿è
¦^´_ 15# ã´£³¡ªL
¦^´_ 19# jcchiang
«e¤@Óµ{¦¡µ²§ô«á,§ÚÁÙn§@«áÄòªºÀɮ׳B²z,§Ú©µ¥Î¤§«eªº»yªk,¤@¼Ë¬O´ú¸Õ4¤ë¥÷,
¥H¤u§@ªí¤¤ªºSheets("1").Range("A2")ªº¤é´Á(2020/4/1),§ì¤ë©³¤é
§ï¬°³o¼Ë,¦ý¬°¤°»ò¬õ¦â³¡¥÷,¤´µLªk°õ¦æ?
Lastday = DateSerial(Year(BK.Sheets("1").Range("A2")), Month(BK.Sheets("1").Range("A2")), 0) '¤ë©³¤é
mDay = Day(Lastday)
For i = 1 To mDay
With BK.Sheets(i & "")- Sub ¤UÓ¤ë_²z³f³æ_¥ØªºÀɪíÀYȤÆ()
- '¤ñµá¦h²z³f³æ
- Dim Lastday$, mDay%, BK As Workbook
- Dim myPath$, xFile$, i&
- Application.ScreenUpdating = False 'Ãö³¬«Ì¹õ§ó·s
- Application.DisplayAlerts = False '¤@¯ë´£Äµ¥Ü°T®§Ãö³¬
- myPath = "U:\b\" '¥t¦s¥Øªº¸ê®Æ§¨
- xFile = Dir(myPath & "*.xlsx") '¥Øªº¸ê®Æ§¨ÀɦW
- Do While xFile <> ""
- Application.DisplayAlerts = False '¤@¯ë´£Äµ¥Ü°T®§Ãö³¬
- With Workbooks.Open(myPath & xFile)
- Set BK = Workbooks.Open(myPath & xFile) '¶}±Ò«ü©wÀÉ®×
- Lastday = DateSerial(Year(BK.Sheets("1").Range("A2")), Month(BK.Sheets("1").Range("A2")), 0) '¤ë©³¤é
- mDay = Day(Lastday)
- For i = 1 To mDay '¦b¤u§@ªí¤¤´`Àô
- With BK.Sheets(i & "")
- .[G1] = .[G1].Value 'ȤÆ
- .[A1] = .[A1].Value 'ȤÆ
- End With
- Next i
- Sheets("1").Activate
- Range("P1:V2").ClearContents
- Sheets("1").Range("G1") = Sheets("2").Range("G1").Value
- ActiveWorkbook.Close True '¦sÀÉ«áÃö³¬ÀÉ®×
- End With
- xFile = Dir
- Loop
- Application.ScreenUpdating = True '¥´¶}«Ì¹õ§ó·s
- End Sub
½Æ»s¥N½X |
|