- 帖子
- 73
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win 8
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2013-5-11
- 最後登錄
- 2018-7-25
 
|
今天有一個問題想請教各位大大，是這樣的:
我在D槽有一資料夾複製了名稱類似的excel，想取出不要包含最後 "-數字"的名稱有那些，放置在一個陣列中:
卡住點:
問題1.無法用 arr(i) = sDir 取出各個xlsx
問題2.接下來想用len在find"-",算出位置然後不知道該刪除重複???
javascript:;
不知道有沒有人可以教教我，十分謝謝!
目前:
Sub List()
Dim arr(1000)
sPath = "D:\New folder\"
sDir = Dir(sPath & "*.xlsx", vbNormal)
i = 0
Do Until LenB(sDir) = 0
arr(i) = sDir
i = i + 1
Loop
End Sub |
-
-
New folder.rar
(24.31 KB)
File
|
發表於 2014-4-11 23:56
| 
