プロが教えるわが家の防犯対策術!

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

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

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

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

A 回答 (1件)

こんばんは


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

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ですべて出来そうに思いますね
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング