返回列表 上一主題 發帖

[發問] 如何擷取出不重複名稱的陣列?

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-11 23:56 | 顯示全部帖子

[發問] 如何擷取出不重複名稱的陣列?

今天有一個問題想請教各位大大，是這樣的:
我在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

收藏 分享

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-4-12 09:34 | 顯示全部帖子
親愛的版主，我想要顯示 arr(20140401-01#35,20140401-156#35) 就可以了，但是 arr(i) = sDir好像會列出所有的檔案名。

不勝感激.....

TOP

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-4-12 09:37 | 顯示全部帖子
回復 2# GBKEE

抱歉~忘記按到回復 >""""<


親愛的版主，我想要顯示 arr(20140401-01#35,20140401-156#35) 就可以了，但是 arr(i) = sDir好像會列出所有的檔案名。

不勝感激.....

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題