請問如何用VBA開啟檔案總管視窗讀取Folder或Files的路徑or檔名

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^# 跳轉到 »

發表於 2010-10-13 23:00 | 只看該作者

回復 3# webbliu

在上面的程式裡就有貼到儲存格裡的功能囉.

Cells(i, 1) = .SelectedItems(i)

就是將所選的檔名依序貼到 A1 A2 A3 ... 的儲存格內,

Cells(a, b)
a 為列號 1,2,3,4...
b 為欄號 A,B,C,D...

所以 Cells(i, 1) 就表示 A1 儲存格.

TOP

webbliu

中學生 Rank: 2

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

3^#

發表於 2010-10-13 17:27 | 只看該作者

回復 2# Hsieh

謝謝版主~
請問後半段
我不太懂，我想知道如果是要指定貼回路徑到某一儲存格該怎麼寫呢?

謝謝版主大大!!

For i = 1 To .SelectedItems.Count
Cells(i, 1) = .SelectedItems(i)
MsgBox .SelectedItems(i)
Next
End With
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章