如何在VBA对话框中自动按下“打开”按钮

Question

我是 VBA 的初学者，当我使用 Application.FilaDialog(msoFileDialogOpen) 时，我可以以编程方式选择特定文件，但无法点击“打开”按钮。我使用了发送键“{ENTER}”，但它不起作用。

希望你们帮我自动按下按钮

这是我的代码：

Sub OpenButton()
With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "my_path"
        .Filters.Clear
        .Filters.Add "Eval-txt", "*.csv"
        .AllowMultiSelect = False
        If .Show <> 0 Then
          Application.ScreenUpdating = False
          .Execute
          Application.SendKeys "{ENTER}"
        End If
End Sub

Answer 1

FileDialog

是人机界面的功能，专门用于与人交互。如果您不需要人工提供任何信息，则无需使用此功能。

“自动按‘打开’按钮”操作会产生什么结果？您将获得一个文件名。考虑到“以编程方式选择特定文件”，您只需将特定文件名分配给变量即可获得此结果，而无需

FileDialog

。