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

[µo°Ý] Ãö©óDir ¨ú±oªº²M³æ°µ±Æ§Ç¡A·PÁÂ~

[µo°Ý] Ãö©óDir ¨ú±oªº²M³æ°µ±Æ§Ç¡A·PÁÂ~

¦U¦ì¤j¤j¡A³Ìªñ§Ú¦³¼g¤F¤@­Ó²³æªºVBA,¦p¤U:
§Ú¬O·Q­n¦b   myFile = Dir(myFolder & "*.xlsx") ®É§Y¥Ñ¦WºÙ¤p¨ì¤j¡A¶}©l°µ±µ¤U¨Óªº°Ê§@¡C
¦ý¦³ªº®É­Ô·|µo¥Í¦WºÙ¥i¯à¥Ñ¤j¨ì¤p¨Ó¶i¦æ±µ¤U¨Óªº°Ê§@¡A«Ü©_©Ç¡A¦U¦ì¤j¤jª¾¹D³o¬O¤°»ò³y¦¨ªº¶Ü?
«Ü§x´o§Ú»Ý­n¦WºÙ¬O¥Ñ¤p¨ì¤jªº¶¶§Ç°µ°Ê§@¡A·PÁ§A­Ì¡AÁÂÁÂ!~:'(

Sub file()
    Dim myFolder As String, myFile As String
    Dim i As Integer
    myFolder = "C:\New folder\"
    myFile = Dir(myFolder & "*.xlsx") '´N¬O³o¸Ì¡A·Q¦WºÙ¥Ñ¤p¨ì¤j
    i = 1
    Do While myFile <> ""
        Cells(i, 1).Value = myFile
        myFile = Dir()
        i = i + 1
    Loop
End Sub

ÁÙ¬O¥i¥H¦A³]¤@­Ó¦W ºÙ²M³æ¬° myFile2= myFileªº±Æ§Ç
µM«á:
  i = 1
    Do While myFile2 <> ""
        Cells(i, 1).Value = myFile2
        myFile2 = Dir()
        i = i + 1
    Loop

¤£ª¾¹D¦æ±o³q¶Ü?°Ý¤£¨ì¤H.....·P®¦

TOP

kimbal ÁÂÁ±z¡A
¦ý¦³¿ìªk¦bVBAµ{¦¡¤º°µ¨ì¶Ü?
¦]¬°·Q¦C¤@­Ó±Æ¦n¤j¤p¶¶§Çªº²M³æµ¹±µ¤U¨Óªº°j°é¨Ï¥Î¡A±z¥Îªº¤è¦¡§Ú¤F¸Ñ(¥ý¦C¥X²M³æ¦bexcel sheet ¤¤¡AµM«á¦A±Æ§Ç)¡A¦ý§ÚÁÙ¬O·Q¥ÎVBA¤¤¼g¦¨!
--------------------------------------------------------------------------------------------
§Ú¦³¬d¨ì¦bDos ¤Uªº¥Ø¿ýÅã¥Ü(DIR)¡A¥i¥H¨Ì·Ó«ü©wªº±Æ§Ç¶¶§Ç¨Ó¦C¥XÀɮסA¦p¤Uºô§}¡C¦ÓVBA©|µL§ä¨ì:
http://jax-work-archive.blogspot.tw/2009/04/dos-dir.html
·P®¦^  ^~

TOP

¹ï©ó¤§«e°Ýªº°ÝÃD¡G
¦ý¦³ªº®É­Ô·|µo¥Í¦WºÙ¥i¯à¥Ñ¤j¨ì¤p¨Ó¶i¦æ±µ¤U¨Óªº°Ê§@¡A«Ü©_©Ç¡A¦U¦ì¤j¤jª¾¹D³o¬O¤°»ò³y¦¨ªº¶Ü?

§Úµo²{¦bXP®É¬OÀɮקó·sªº¤é´Á¥Ñ"·s¡÷ÂÂ"§@¬°¶¶§Ç
¦bWin8®É¬OÀɮקó·sªº¤é´Á¥Ñ"¡÷·s"§@¬°¶¶§Ç

©Ò¥H·Q½Ð°Ý¦U¦ì¤j¤j¡A¥i¥H¦bXP®É¬OÀɮקó·sªº¤é´Á¥Ñ"¡÷·s"§@¬°¶¶§Ç¶Ü???ÁÂÁÂ~

TOP

¦^´_ 6# stillfish00
stillfish00¤j~«Ü·P°Ê¡AÁÂÁ±zªºÀ°¦£¡A§Ú©ú¤Ñ¥h¤½¥q¸Õ¤@¤U~
¤W¦¸"¸¨ÂI°ÝÃD"¤]¬O§AÀ°§Ú¸Ñªº¡A²{¦b§Ú¨C¤Ñ³£¦³¦b¥Î³á! §Ú³£¦³°O±o¡A¯uªº¯uªº~ ÁÂÁ±z ^ ^~

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD