Accessでの開発ならネーブルス

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

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