ファイルを開く、ファイル選択のダイアログを出す。（EXCEL利用）
' 参照設定が必要。
'
'呼び出し側サンプル。
Private Sub cmd参照_Click()
On Error GoTo Err_cmd参照
Dim wPass As String
wPass = CurrentProject.Path & "\images"
Dim strFileName As String
'True:ファイルを開く
'False:名前を付けて保存
strFileName = fc_GetFileName(True, "Imageファイル (*.jpg,*.gif)", _
"ファイルを開く", wPass)
If Len(strFileName) = 0 Then
'キャンセルボタンが押されたときの処理を記述
Else
'ファイルが指定されたときの処理を記述
Me.tech_image_pass = strFileName
End If
Exit_cmd参照:
Exit Sub
Err_cmd参照:
MsgBox ("cmd参照:" & Err.Number & " " & Err.Description)
Resume Exit_cmd参照
End Sub
Function fc_GetFileName(OpenOrSaveFlg As Boolean, strFilter As String, _
strTitle As String, strCDir As String) As String
'-------------------------------------------------------------
' ファイルを開くダイアログを表示
'-------------------------------------------------------------
Dim returnValue As Integer
Dim strFilePath As String
If strFilter = "" Then
strFilter = "全てのファイル (*.*)|*.*"
End If
WizHook.Key = 51488399 'WIZHOOK有効
returnValue = WizHook.GetFileName( _
0, "", strTitle, "", strFilePath, strCDir, _
strFilter, _
0, 0, 0, OpenOrSaveFlg _
)
WizHook.Key = 0 ' WizHook 無効
fc_GetFileName = strFilePath
End Function