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

[µo°Ý] ½Ð°Ý¦p¦ó¦C¥X¬Y¸ê®Æ§¨¤º©Ò¦³¸ê®Æ§¨¦WºÙ

[µo°Ý] ½Ð°Ý¦p¦ó¦C¥X¬Y¸ê®Æ§¨¤º©Ò¦³¸ê®Æ§¨¦WºÙ

½Ð°Ý¦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
MLB

¦U¦ì¤j¤j¡B«e½ú :
¤p§Ì§Ú§ä¨ìµª®×¤F, ¥ý«e´N¦³«e½ú´£¨Ñ¹LÃþ¦üªº¸Ñµª, ¦A©M¤j®a¤À¨É¤@¤U
¥u­n¥[¤JvbDirectory´N¥i¥HÅo

Sub list_and_link1()
n = 1
path1 = "C:\Users\user\Desktop\folders\"    ''''''' ·j´M¦ì¸m
file1 = Dir(path1, vbDirectory)  '''''''' ¥u³B²z¸ê®Æ§¨
Do While file1 <> ""
    If file1 <> (".") And file1 <> ("..") Then
        Cells(n, 2) = file1
    End If
    n = n + 1
    file1 = Dir
Loop
End Sub
MLB

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD