- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
¤j¤jÌ §Ú·Q°Ý°Ý ¦bª©¤W §ä¨ì¥H¤UªºDIR »yªk
Sub file()
abc = ThisWorkbook.Path
Dim myFolder As String, myFile As String
Dim i As Integer
myFolder = abc & "\31931777_20S0514_Del 31931777_2\"
myFile = Dir(myFolder & "*.txt") <--------°ÝÃD1 ¯à¥H¦h±ø¥ó ¨Ò¦p *.red or blue.txt ¨Ó¨ú±o ¶Ü
i = 1
Do While myFile <> ""
Cells(i, 1).Value = myFile
myFile = Dir()
i = i + 1
Loop
End Sub
°ÝÃD¦³2Ó :
1.½Ð°Ý¦p¦ó ³q¹LÀɦW ©Î ÀÉ®×Ãþ«¬ §ä¦h¹L¤@Óªº ÀÉ®× (¨Ò¦pÀɮצW ¦³ red ©Î YELLOW ¨Ó¨ú±o ?
2. ½Ð°Ý¯à³q¹L¥H¤Wªº»yªk ¨Ó¬d§ä ¤l¥Ø¿ý¶Ü
ÁÂÁ¦U¦ì¤j¤j |
|