vba - 在 Word VBA 中调用 Application.GetOpenFilename 方法有什么问题？

Question

也就是说，我在按钮处理程序中调用了以下代码段:

TextBox1.Text = Application.GetOpenFilename("All files (*.*),*.*", _
        1, "Open the Raw Data Files", , False)
If TextBox1.Text = "False" Then TextBox1.Text = ""

错误说:“编译器错误:找不到方法或数据成员”

提前致谢!

Answer 1

Word 中没有Application.GetOpenFilename

您需要改用 FileDialog。这是一个简单的例子:

Private Sub CommandButton1_Click()
  Dim s As Variant
  Dim Res As Integer

  Dim dlgSaveAs As FileDialog
  Set dlgSaveAs = Application.FileDialog( _
                   FileDialogType:=msoFileDialogSaveAs)
  Res = dlgSaveAs.Show
  If Not Res = 0 Then
    For Each s In dlgSaveAs.SelectedItems  'There is only one
      MsgBox s
    Next
  End If
End Sub