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

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

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

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

°ÝÃD¬O¡K¡K«ç»ò¼g

TOP

¥i¯à§Ú¨S§â§Úªº°ÝÃD¼g²M·¡,©Ò¥HÅý¦U¦ì¥ý¶i»~¸Ñ
§Úªº·N«ä¬O»¡§Ú§â³o­Ó¥¨¶°Àɮצs©ñ¦bÀH¨­ºÐ¤Wªº±ø¥ó¤U,¦p¦ó¦b¥ô·N¹q¸£¤W³£¥i¥H°õ¦æ?
§Úı±o°ÝÃDÀ³¸Ó¬O¦b"D:\®à­±\080526\0201\*.XLSx"¤W
°ÝÃD¬O§Ú¤£ª¾¹D¦p¦ó§ï¼g
¦]¬°¸ô®|·|ÀHµÛ¹q¸£¤£¦P¦Ó¤£¦P

TOP

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

End Sub
-----¦n¹³©Ç©Ç

TOP

ÁÂÁ§Aªº¸Ñ´b

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD