VBA从特定位置选择文件？

如何解决VBA从特定位置选择文件？

我试图将一些代码放到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