- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 148
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-21
- 最後登錄
- 2023-3-13
|
大大們 我想問問 在版上 找到以下的DIR 語法
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") <--------問題1 能以多條件 例如 *.red or blue.txt 來取得 嗎
i = 1
Do While myFile <> ""
Cells(i, 1).Value = myFile
myFile = Dir()
i = i + 1
Loop
End Sub
問題有2個 :
1.請問如何 通過檔名 或 檔案類型 找多過一個的 檔案 (例如檔案名 有 red 或 YELLOW 來取得 ?
2. 請問能通過以上的語法 來查找 子目錄嗎
謝謝各位大大 |
|