AccessVBA入門④FileDialog

今回は、前回のFileSystemObjectに引き続き、MicroSoftOfficeのダイアログボックスの操作ができるFileDialogオブジェクトを紹介します。

Sub Test()
  Dim MyDialog As fileDialog
  Set MyDialog = FileDialog(msoFileDialogFilePicker)
  MyDialog.InitialFileName = CurrentProject.Path

  MyDialog.Filters.Clear
  MyDialog.Filters.Add "テキスト", "*.txt", 1
  MyDialog.Filters.Add "エクセル", "*.xls", 2
  MyDialog.Filters.Add "全てのファイル", "*.*", 3
  MyDialog.FilterIndex = 3

  If MyDialog.Show Then
    Debug.Print MyDialog.SelectedItems(1)
  Else
    Debug.Print "キャンセルされました"
  End If
  Set MyDialog = Nothing
End Sub


End Sub