| |
▼Ｊ さん：
>ＡＰＩは
>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
こんな感じです。
一応参考までに。
検討違いな回答でしたらごめんなさい。
|
|
てっちゃん
- 06/4/20(木) 13:56 -
