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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

Dear 各位大大，

請問大大有沒有辦法讓user 在Excel裡面按下Button 然後就會看到檔案總管視窗(類似存檔畫面的視窗)，然後指另一個路徑。
讓User 選取檔案夾或檔案，然後可以複製該檔案或檔案夾的路徑 or 檔名。

選好後路徑or檔名~  會自動複製到某存格上。

謝謝各位厲害的大大~!!

目前我只知道可以打開視窗而已  網路上查到的是這樣

Fname = Application.GetOpenFilename
還有檢視檔案用MsgBox顯示
Dim NextFile As String
Dim AllFiles As String

AllFiles = ""
NextFile = Dir("C:\", 0)

While NextFile  <> ""
   AllFiles = AllFiles & Chr(13) &  NextFile
   NextFile  = Dir
Wend

MsgBox AllFiles

謝謝各位大大~

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

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

Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For i = 1 To .SelectedItems.Count
Cells(i, 1) = .SelectedItems(i)
MsgBox .SelectedItems(i)
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

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

luhpro

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2010-10-14 02:25 | 只看該作者

回復 4# luhpro

謝謝大大~ 我完全明白了!!

TOP

webbliu

中學生 Rank: 2

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

6^#

發表於 2010-10-14 02:25 | 只看該作者

回復 2# Hsieh

謝謝版主的指導!!

TOP

佩玄

中學生 Rank: 2

帖子: 12
主題: 6
精華: 0
積分: 65
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 桃園
註冊時間: 2010-5-12
最後登錄: 2014-5-29

論壇贊助勳章

7^#

發表於 2010-10-20 10:14 | 只看該作者

大師:
如果我要開啟的路徑是: D\文件檔\附屬檔案
請問程式要怎麼修改?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-10-20 10:41 | 只看該作者

回復 7# 佩玄
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogOpen)
      .InitialFileName = "D\文件檔\附屬檔案"
      .AllowMultiSelect = True
      .Show
      For i = 1 To .SelectedItems.Count
         Cells(i, 1) = .SelectedItems(i)
         MsgBox .SelectedItems(i)
      Next
End With
End Sub

TOP

oobird