vba打開文件夾

A. vba 打開指定路徑的文件

'openfile不是vb內置函數,filesystemObject倒是有個 opentextfile

label1.caption=Commmondialog1.filename
dim text as string
text=createObject("Scripting.filesystemObject").OpenTextFile(label1.caption).readAll

B. 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")

C. vba 查找打開文件夾的文件

以下代碼，樓主可以參考，打開文件夾，選擇文件後自動打開
Sub text()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Title = "請選擇對應文本文件"
.AllowMultiSelect = False
If .Show Then f = .SelectedItems(1) Else Exit Sub '
End With
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & f, vbMaximizedFocus

End Sub

D. 如何在Excel中用VBA打開指定的文件夾

打開E盤
Shell "explorer.exe " & "E:\", vbNormalFocus

E. VBA，電子表格，如何用按鈕事件打開一個文件夾

點擊一下含有下面的函數的單元格，可用函數可以打開文件夾：
=hyperlink(文件夾地址,"需要顯示的提示內容")

F. VBA語言如何打開指定文件名的文件

• 在D盤新建一個名為文件的文件夾，在裡面創建幾個Excel文件。

  

G. 關於Excel VBA打開文件夾

Sub openmyexcel()
Dim fs, f, i, j, k, f1, f2
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("f:\hk")
For Each i In f.subfolders
If InStr(i.Name, "102471") <> 0 Then

Set f1 = fs.getfolder(i.Path)
For Each j In f1.subfolders
If InStr(j.Name, "prem") <> 0 Then

Set f2 = fs.getfolder(j.Path)
For Each k In f2.Files
If InStr(k.Name, "00") <> 0 Then
Workbooks.Open (k.Path)
Set f2 = Nothing
Exit For
End If
Next
Set f1 = Nothing
Exit For
End If
Next
Set f = Nothing
Exit For
End If
Next
End Sub
————————————————————————————
在thisworkbook中執行

H. VBA 怎麼打開當前文件夾下的excel

你只要運行語句，然後找到你那個文件夾，Office下次再打開是會自動記錄位置的，直接定位到那個文件夾。
而且要指出的是：
GetOpenFilename 方法：顯示標準的「打開」對話框，並獲取用戶文件名，而沒有真正打開任何文件。
要真正打開文件要使用：Workbook的Open方法
xlapp.Workbooks.Open (Filename)
注意：其中Filename參數需要指定文件的全路徑。

I. VBA 如何查找並打開文件夾地址

在命令按鈕下置入一下代碼，如果找不到輸入名稱的文件夾，會提示是否要建立一個新文件夾！

If FolderNM = "" Then MsgBox "請輸入文件夾名稱", 64, "提示": Exit Sub
If FolderNM <> "" Then
m = Trim（FolderNM)
End If

f = Dir("D:\" & m, vbDirectory)
If f = "" Then
If MsgBox("找不到指定文件夾，是否建立新文件夾？", 32 + 4, "詢問") = vbYes Then
MkDir ("D:\" & m)
If MsgBox("文件夾創建成功,現在是否打開", 32 + 4, "詢問") = vbYes Then
Ret = Shell("explorer.exe D:\" & m, vbNormalFocus)
End If
End If
Else
Ret = Shell("explorer.exe D:\" & m, vbNormalFocus)
End If