ダイアログボックスの表示

ファイルを選択したり、保存する際に使用するダイアログボックスの表示する方法。

 strFileName = GetFileName(False, “C:\XXX”, “エクセルファイル(.xlsx)|.xlsx”, “エクセルの保存”)
             

Function GetFileName(OpenOrSaveFlg As Boolean, _    ’True → 開く false →保存
        strFilePath As String, _         ’初期表示させるフォルダ
        strFilter As String, _          ’ファイルの種類
        strTitle As String) As String       ’ダイアログボックスのタイトル
  Dim returnValue As Integer

  WizHook.Key = 51488399      ’WIZHOOK有効
  returnValue = WizHook.GetFileName( _
             0, “” _
              , strTitle _
              , “” _
              , strFilePath _
              , “”, _
              strFilter, _
              0, 0, 0 _
              , OpenOrSaveFlg _
              )
  WizHook.Key = 0         ’ WizHook 無効
  GetFileName = strFilePath
End Function