½Ð°Ý¦U¦ì«e½ú ¡B°ª¤â
¤p§Ì§Ú·Q½Ð°Ý¤@¤U
¦pªG·Q³v¤@¦C¥X "¬Y¸ê®Æ§¨¸Ì , ©Ò¦³¸ê®Æ§¨¦WºÙ" , VBA¦³¨S¦³¤°»ò¤è¦¡¥i°µ¨ì©O?
§Ú¥ý«e¦³¼g¹L³v¤@¦C¥X "¬Y¸ê®Æ§¨¤U©Ò¦³ÀɮצWºÙ" ¦p¤U
¦ý¬O¥Ø«e»Ý¨D©¹¤W¸õ¤@¼h , §ì¨úªºª«¥ó¦WºÙ¥Ñ "ÀÉ®×" ´«¦¨ "¸ê®Æ§¨" , ¦³¤°»ò¦nªº«Øij¶Ü?
¦pªG¦³¦nªº«Øij, Áٱ椣§[½ç±Ð
·PÁÂ~
Sub test() '''''''' ¦C¥X¸ê®Æ§¨¤º©Ò¦³.csvÀɮצWºÙ
Sheets(4).Activate
p = Cells(21, 1) ''''''' path
f = Dir(p & "*.csv")
If f = "" Then Exit Sub
n = 1
Do While f <> ""
Cells(n, 10) = f
n = n + 1
f = Dir()
Loop
End Sub |