Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5488 / 9994

←次へ　｜　前へ→


	【7725】Re:ダイアログボックスについての質問

Ｊ

- 06/4/20(木) 14:32 -


	引用なし

	パスワード

▼てっちゃんさん：
早速のお返事有難う御座いました。
Wizhookいいですね。
こちらでなんとかなりそうです。
有難うございました。

>▼Ｊさん：
>>ＡＰＩは
>>Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
>>　　"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean
>>を使用しています。
>
>「ファイルを開く」であれば、APIではありませんが、
>Wizhook関数（？）を使うのはどうでしょう？
>
>詳細は
>http://x7net.com/~access/AcTipsGetFileName.html
>にあります。
>
>簡単な例は、
>Private Sub TEST_Wizhook()
>　　Dim myINT As Integer
>　　Dim myFileName As String
>　　Dim myPath As String
>　　
>　　'フォルダのパスを指定
>　　myPath = "\\A\AB\"
>　　
>　　'ファイル名の取得
>　　WizHook.Key = 51488399　　　' WizHook 有効化
>　　myINT = WizHook.GetFileName(0, "", "", "", myFileName, myPath, _
>　　　　　　　　　　　　"えくせるふぁいる (*.xls)|*.xls", 0, 0, 0, True)
>　　WizHook.Key = 0　　　　　　 ' WizHook 無効化
>　　
>　　'ファイル名を取得した場合
>　　If myINT = 0 Then
>　　　　Debug.Print myFileName
>　　End If
>　　
>End Sub
>こんな感じです。
>
>一応参考までに。
>
>検討違いな回答でしたらごめんなさい。

971 hits

▼

【7718】ダイアログボックスについての質問 Ｊ 06/4/20(木) 9:39