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