- ©«¤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
|
¦^´_ 6# oak0723-1
µ{¦¡½X¬Ý°_¨Ó¬OºI¨ú¨ä¤¤¤@¬q,Àɮ׳£¨S¥´¶},´NÃö³¬,©Ò¥H³o¬qµ{¦¡µLªk°µ¤°»ò°Ê§@...»PÀH¨ºÐµLÃö
µ{¦¡½X¬O¥´¶} "D:\®à±\080526\0201\"¸Ì±ªºÀÉ®×...¦b®à±ªºÀɮפ@¯ë³£¦bC,§Aªº«o¬O¦bD
¥ý¬d¤U¸ô®|¦³¨S¦³¿ù?¦³¿ù§ï¸ô®|§Y¥i¥´¶}ÀÉ®×
µy¥[קאּ
Sub ¥´¶}®×§¨¸Ì©Ò¦³ÀÉ®×_¯x§Î3_Click()
Dim mFile As String, Path As String
Path = "D:\®à±\080526\0201\" '¸ô®|,¤Ö¤F³o¬qÀÉ®×¥´¤£¶}
mFile = Dir(Path & "*.xlsx") '¸ô®|¤¤ªºÀÉ®×
Do While mFile <> ""
Workbooks.Open(Path & mFile) '¶}±ÒÀÉ®×
...°µ¬Y¨Ç°Ê§@...
Workbooks(Path & mFile).Close False '¤£¦sÀÉ´NÃö³¬
mFile = Dir()
Loop
End Sub |
|