VBAでのフルパスの取得

https://liclog.net/getwindowtext-function-vba-ap …

に載っていたコードでExcelファイルを特定しました。
できればローカルに保存したのでフルパスが特定したいです。

AccessVBAで実行したのですが、
Excelのファイルは特定できないでしょうか？

ご存知の方、教えてください。

No.1 回答者： Qchan1962 回答日時： 2022/09/21 02:53

こんばんは

＞ローカルに保存したのでフルパスが特定
保存とフルパス特定がどのように関係しているのか分かりませんが・・

WindowsAPIでウィンドウ名を取得しているのだとしたら既に開かれている
Excelブックが対象になるのでしょうか・・

ウィンドウ名は加工され　ファイル名だけになっているとして

GetObjectでExcelをセットして特定すれば、多分出来ます
Accessは使っていないので検証できませんが

Dim objApp As Object
Dim cap As String
'cap = 特定された拡張子を含むファイル名
On Error Resume Next
Set objApp = GetObject(, "Excel.Application")
Debug.Print objApp.Workbooks(cap).Path & "\" & cap
On Error GoTo 0
Set objApp = Nothing
End Sub

APIを使わなくとも上のGetObjectですべて出来そうに思いますね