- ©«¤l
- 73
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 8
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-5-11
- ³Ì«áµn¿ý
- 2018-7-25
 
|
[µo°Ý] Ãö©óDir ¨ú±oªº²M³æ°µ±Æ§Ç¡A·PÁÂ~
¦U¦ì¤j¤j¡A³Ìªñ§Ú¦³¼g¤F¤@Ó²³æªºVBA,¦p¤U:
§Ú¬O·Qn¦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 |
|