急いでいます！

EXCEL VBA API宣言でコンパイルエラー

解決済

質問者：VBA-IE
質問日時：2018/05/17 11:38
回答数：2件

VBA初心者です。
VBAで自動化を進めていて、ダイアログでのファイル名入力で行き詰まっています。
実行したい事は、ファイル名を入力し、Webからダウンロードしたものを保存する動作です。
困っているのはAPI宣言文でコンパイルエラーになり、肝心の実行まで至っていないことです。
「VBAでファイル選択ダイアログを自動操作する」のWebを見つけ、その通り組み込んだところ、最初のAPI宣言のところでコンパイルエラーになり困っています。
どのように直したら良いのか教えてください。よろしくお願い致します。

１．エラー内容
下記のAPI宣言文で、FindWindowの箇所で「コンパイルエラー。ユーザ定義型は定義されていません」と表示される。
Webにある記述だけだとエラーになったので、FindWindowEx、FindWindow、SendMessageの3つ共、Functionの前にPrivate Declareを追加しています。
修正する箇所等、教えてください。

２．コード
'----------------- API宣言部分 -----------------
Private Declare Function FindWindowEx Lib "USER32.dll" _
Alias "FindWindowExA" ( _
ByVal hWndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As Long

Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
'----------------- API宣言部分 -----------------
Private Declare Function SendMessage Lib "USER32.dll" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Any) As Long

'----------------- 処理部分 -----------------
Dim hInputBox As Long
Dim hButton As Long
Dim hWindow As Long

hWindow = FindWindow("#32770", "名前を付けて保存")

hInputBox = FindWindowEx(hWindow, 0&, "ComboBoxEx32", "")
hInputBox = FindWindowEx(hInputBox, 0&, "ComboBox", "")
hInputBox = FindWindowEx(hInputBox, 0&, "Edit", "")
hButton = FindWindowEx(hWindow, 0&, "Button", "保存(&S)")

'----------------- 処理部分 -----------------

'ファイルパス入力'
Call SendMessage(hInputBox, &HC, 0, DLfile) 'DLfile変数ダウンロードするファイル名

'ボタン押下'
Call SendMessage(hButton, &H6, 1, 0&) 'ボタンをアクティブにする
Call SendMessage(hButton, &HF5, 0, 0&) 'ボタンをクリックする