问题描述
我试图将一些代码放到VBA中,它将打开一个特定的文件夹,让我选择文件,然后继续运行我的代码。
当前(在下面)“我能使用的”是,它将打开一个文件夹,但通常从通用位置(桌面)开始,但不会进入特定的文件夹位置以打开我想要的文件。 / p>
Dim Filename as String
filename = Application.GetopenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If filename <> False Then
Workbooks.Open filename:=filename
End If
我也尝试过这样的事情:
Dim Directory as String
Dim Filename as String
Directory = "\\page\data\NFInventory\groups\CID\Retail Setting\Lago Retail Uploads\" & strBrand & "\" & strSeason & "\" & strPrefix & "\"
Filename = Dir(Directory & "*.xl*;*.xm*")
Workbooks.Open Filename:=Directory
但是它什么也没做,我想我没事。任何帮助或朝正确方向的推动将不胜感激。
-德克
解决方法
这将在指定位置启动一个打开对话框:
Sub openBeckJFolder()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
.InitialFileName = "C:\Users\beckj\"
End With
End Sub
Microsoft document page并没有真正融入其中,但是FileDialog
具有一些功能,例如我在这里使用的InitialFileName
。
_
更新:打开工作簿
添加了使您可以突出显示工作簿并单击工作簿上的Open
或double-click
的代码。
Sub openBeckJFolder()
Dim Filename As String
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "C:\Users\beckj\"
If .Show = True Then
Filename = .SelectedItems(1)
End If
End With
Workbooks.Open (Filename)
End Sub