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

[µo°Ý] ¦p¦ó§ï¼gÅý³o­Óµ{¦¡½X¦bÀH¨­ºÐ¤W¥i¥H°õ¦æ

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD