vba打開指定文件夾

⑴ vba如何打開文件夾對話框

1.打開一個表格文件；
2.按組合按鍵【Alt+F11】調出VBA編輯器，插入宏取名為【打開文件選擇對話框】；
3.定義對話框變數（Dim fd As FileDialog：Set fd = Application.FileDialog(msoFileDialogFilePicker)）；
4.設置文件默認目錄及顯示對話框;
5.執行宏後就會彈出文件選擇對話框。

⑵ 如何用vba代碼打開文件夾內的word文檔

Sub Read_Word()x0dx0aDim worDoc As objectx0dx0aDim wordappl As objectx0dx0aDim mydoc As Stringx0dx0aDim myappl As Stringx0dx0amydoc = thisworkbook.path & "\" & "文件名.doc"x0dx0a'本文檔目錄下的doc文件，這里可以直接改成路徑＋文件名的形式x0dx0aSet wordappl = CreateObject("Word.application")'設置wordappl對象x0dx0aSet worDoc = wordappl.Documents.Open(mydoc)x0dx0a'打開word文檔，mydoc變數指定路徑和文件名x0dx0aworDoc.Activate'激活打開的文檔x0dx0awordappl.Selection.WholeStory '全選文檔x0dx0awordappl.Selection.Copy'復制選擇內容到剪貼板x0dx0aworDoc.Application.Quit'關閉word文檔x0dx0aSet WordApp = Nothing'釋放對象變數的內存x0dx0aWorkbooks(1).Sheets(2).Activate '激活excel第一個工作簿的第二個工作表x0dx0aActiveSheet.UsedRange.Clear'把當前工作表清空，如果有重要數據，這條刪除x0dx0aCells(1, 1).Select'選擇A1單元格x0dx0aActiveSheet.Paste'粘貼復制的內容x0dx0awordappl.quitx0dx0aset wordappl =nothingx0dx0aEnd Sub

⑶ EXCEL如何使用VBA打開相對路徑下的文件或文件夾

打開文件如下：

Workbooks.Open ("C:對賬單對帳單.xlsx")

這里你可以把「C:對賬單」換成你的絕對路徑，

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" "&對帳單.xlsx")

來獲取你當前表的絕對路徑，然後再打開，因為不知道你的具體情況，如果有問題可以hai我

如果當前文件夾下還有A文件夾可以用代碼：

Workbooks.Open ("" & a & "&" A"&b.xlsx")

⑷ 如何用vba代碼打開文件夾內的word文檔

Sub Read_Word()
Dim worDoc As object
Dim wordappl As object
Dim mydoc As String
Dim myappl As String
mydoc = thisworkbook.path & "\" & "文件名.doc"
'本文檔目錄下的doc文件，這里可以直接改成路徑＋文件名的形式
Set wordappl = CreateObject("Word.application")'設置wordappl對象
Set worDoc = wordappl.Documents.Open(mydoc)
'打開word文檔，mydoc變數指定路徑和文件名
worDoc.Activate'激活打開的文檔
wordappl.Selection.WholeStory '全選文檔
wordappl.Selection.Copy'復制選擇內容到剪貼板
worDoc.Application.Quit'關閉word文檔
Set WordApp = Nothing'釋放對象變數的內存
Workbooks(1).Sheets(2).Activate '激活excel第一個工作簿的第二個工作表
ActiveSheet.UsedRange.Clear'把當前工作表清空，如果有重要數據，這條刪除
Cells(1, 1).Select'選擇A1單元格
ActiveSheet.Paste'粘貼復制的內容
wordappl.quit
set wordappl =nothing
End Sub

⑸ vba如何打開一個文件夾下所有xls文件

注意神碧此 c:\a 目錄下的文件不要太多,免得死機

Sub 打開excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '凍結屏幕，以防屏幕抖動
myPath = "c:\a\" '游迅把文件路徑定義給變數
myFile = Dir(myPath & "*.xls") '依次找尋指定慧鏈路徑中的*.xls文件
Do While myFile <> "" '當指定路徑中有文件時進行循環
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打開符合要求的文件
End If
myFile = Dir '找尋下一個*.xls文件
Loop
Application.ScreenUpdating = True '凍結屏幕,此類語句一般成對使用
End Sub

⑹ VBA 如何顯示文件夾，就是只打開文件夾就可以了

直接使用Shell函數，使用explorer.exe來打開文件夾即可。代碼如下：

Subshowdir()
Shell"explorer.exeD:dir",vbNormalFocus
EndSub

效果如下：

Shell 函數說明
運行可執行程序並在成功時返回表示程序的任務 ID 的 Variant (Double)，否則返回零。
語法
Shell(pathname[,windowstyle])
Shell 函數語法具有以下命名參數：
組成部分
說明
pathname
必需；Variant (String)。要執行的程序的名稱以及任何必需的參數或命令行開關；可能包括目錄或文件夾和驅動器。在 Macintosh 中，可以使用 MacID 函數指定應用程序的簽名，而不是名稱。以下示例使用 Microsoft Word 的簽名：
Shell MacID("MSWD")
windowstyle
可選。與要運行程序的窗口的樣式對應的 Variant (Integer)。如果省略 windowstyle，程序將啟動並最小化，但會獲得焦點。在 Macintosh（System 7.0 或更高版本）中，windowstyle 只確定應用程序在運行時是否獲得焦點。
windowstyle 命名參數具有以下值：
常量 值 說明
vbHide 0 隱藏窗口並將焦點傳遞給隱藏的窗口。vbHide 常量在 Macintosh 平台中不適用。
vbNormalFocus 1 窗口獲得焦點，並還原到其原始尺寸和位置。
vbMinimizedFocus 2 窗口顯示為具有焦點的圖標。
vbMaximizedFocus 3 窗口最大化並具有焦點。
vbNormalNoFocus 4 窗口還原到最近的尺寸和位置。當前活動的窗口仍保持活動狀態。
vbMinimizedNoFocus 6 窗口顯示為圖標。當前活動的窗口仍保持活動狀態。
注釋
如果 Shell 函數成功執行命名文件，它將返回已啟動程序的任務 ID。任務 ID 是標識正在運行的程序的唯一編號。如果 Shell 函數無法啟動指定的程序，則會發生錯誤。
在 Macintosh 中，vbNormalFocus、vbMinimizedFocus 和 vbMaximizedFocus 都將應用程序放在前台；vbHide、vbNoFocus、vbMinimizeFocus 都將應用程序放在後台。