返回列表 上一主題 發帖

[發問] 指定主資料夾,將其副資料夾一一載入各sheet(含改name)(已解決,感謝)

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-8 08:10 | 顯示全部帖子

[發問] 指定主資料夾,將其副資料夾一一載入各sheet(含改name)(已解決,感謝)

本帖最後由 cmo140497 於 2011-7-12 17:34 編輯

Dear 各位版主 :
小弟用vba寫將指定之資料夾內之圖片一一載入至指定欄位,但如果主資料夾內之副資料夾太多,得一個一個開啟-載入-移動sheet,不知如何可一次開啟
程式,指定主資料夾,將其副資料夾一一載入各sheet(含改name),及載入圖片,謝謝!
收藏 分享

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
2#
發表於 2011-7-8 12:38 | 顯示全部帖子
版主實在太神了,一次就解決我的困擾,另請教版主
InStr 函數   傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
Ucase 函數 傳回一個 Variant (String)，所含為轉成大寫之字串
可否請版主幫小弟解釋一下這些函數的用意
另如果可以用Application.FileDialog(msoFileDialogFolderPicker)來指定資料夾的話,要如何寫這段程式?
及將圖片檔案名稱並行載入另一欄位,不知是否可行?

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
3#
發表於 2011-7-8 16:19 | 顯示全部帖子
Dear 版主 :
實在太感謝版主了,小弟還是有一疑惑
InStr 函數   傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
If InStr(UCase(P.Name), ".JPG")=True  Then
P.Name 在此程式中->依序傳回每一資料夾中的File的名稱
兩者的解釋似乎有差異,傳回某字串指的是所指定之路徑名稱字串嗎?
另外如果要同時載入圖片時,順帶於另一欄位載入圖片檔名,程式碼該如何撰寫?謝謝!

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
4#
發表於 2011-7-11 08:58 | 顯示全部帖子
感謝版主不厭其煩地指正,太感謝您了!

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題