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

[µo°Ý] ¦p¦óÅý³o­ÓvbaÅܦ¨¥iÄâ

[µo°Ý] ¦p¦óÅý³o­ÓvbaÅܦ¨¥iÄâ

Sub ¥´¶}®×§¨¸Ì©Ò¦³ÀÉ®×_¯x§Î3_Click()
Dim mFile As String
mFile = Dir("D:\®à­±\080526\0201\*.XLSx")
Do While mFile <> ""
Workbooks(mFile).Close False
mFile = Dir()
Loop

End Sub

¥»©«³Ì«á¥Ñ mistery ©ó 2019-6-13 15:13 ½s¿è

¶×¥X¦¨ .basÀÉ

¦A¶×¤J
p.jpg
2019-6-13 15:12

¯x§Î3.zip (352 Bytes)

TOP

©êºp
§Úªº·N«ä¬O»¡¦p¦ó§ïµ{¦¡½X
Åý³o­Óµ{¦¡©ñ¦bÀH¨­ºÐ¤]¥i¥H°õ¦æ

TOP

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