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

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