帖子: 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

謝謝各位大大~

樓主熱帖

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兔年全勤獎章

13^#

發表於 2015-5-19 20:09 | 只看該作者

回復 12# boblovejoyce
即EXCEL在哪兒? 預設開啟的位置~ 同EXCEL位置

Sub Ex()
With ActiveWorkbook
ChDrive .Path
ChDir .Path
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

boblovejoyce

小學生 Rank: 1

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

12^#

發表於 2015-5-17 16:13 | 只看該作者

回復 8# GBKEE

爬文剛好爬到這個項次~
請問GBKEE大大~~~
如果EXCEL的檔案和要讀取進來檔案若都會在同一個資料夾內
有機會選取檔案得時候,就已經是指定這個資料夾了~~??
即EXCEL在哪兒? 預設開啟的位置~ 同EXCEL位置:)

TOP

apolloooo

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

11^#

發表於 2011-1-14 22:39 | 只看該作者

學到了，感謝各位大大。

借錢不還，才是王道

TOP

佩玄

中學生 Rank: 2

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

論壇贊助勳章

10^#

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

OK~~感謝~~

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

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

Shell "explorer 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

佩玄