For Eachでエクセル以外のデータを確認したい【VBA】

前提・実現したいこと

はじめまして。昨日から業務でVBAに携わっています。
For Each　を使用して、現在開いているwindow内(.impexファイル)に指定のファイル名(strBookName)がないか探したいのですが
下記のコードではエクセルしか見てくれず困っています。

どうしたらよいか教えていただきたいです。
なにとぞ、よろしくお願いします。

該当のソースコード

VBA
1For Each objBook In **Workbooks**　←たぶんここが正しくない
2If objBook.Name = strBookName Then

mattuwan

2019/01/29 10:26

＞現在開いているwindow内どのアプリケーションで開いているのですか？ Excelで開いているなら、それは、workbookでしょうが、他のアプリケーションで開いているファイルをエクセルVBAで、認識できるかは定かではありませんので、他の方の回答をお待ちください。

imihito

2019/01/29 11:24

.impexファイル？が具体的にどのようなものかわかっていませんが、以下の記事のような話なのですかね http://a4dosanddos.hatenablog.com/entry/2015/07/30/020159

行動規範の内容に同意します

回答2件

下記内容に読み替えての回答となります、違う場合は無視して下さい。

現在開いているwindow内(.impexファイル)に指定のファイル名(strBookName)がないか探したい

→対象のディレクトリ内に指定のファイル名(strBookName)がないか探したい

私の知識では、上記内容以外は解りかねます

Option Explicit

Sub Search()
Call FileSearch("対象ディレクトリPath")
End Sub

Sub FileSearch(Path As String)
Dim FSO As Object
Dim Folder As Variant
Dim File As Variant

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Folder In FSO.GetFolder(Path).SubFolders
    Call FileSearch(Folder.Path)
Next Folder

For Each File In FSO.GetFolder(Path).Files
    If LCase(File.Name) Like "*.impex" Then
        Debug.Print File.Path
    End If
Next File

End Sub

投稿2019/01/30 02:15

atsunofu

総合スコア59

yumeno

2019/01/30 06:00

回答ありがとうございます！解決することができましたが、今後の学びのためにも再現させていただきます。本当にありがとうございます。

行動規範の内容に同意します

自己解決

Dim wd As Object, ts As Object
Dim r As Long, p As Integer
Dim key As String
'ファイルが展開していない場合はフラグが0
key = 0

'ワードを､エクセルで扱えるようにする
Set wd = CreateObject("Word.Application")

'ワードの機能である、タスクマネージャ（「Tasks」）の中身を１つずつ調べる
r = 0
For Each ts In wd.Tasks
'「impex」ファイルだけ処理したいので、見つかった「ts」に「.impex」という文言が入っているか調べるのに必要です。
p = InStr(ts, ".impex")
'もし、起動している（「Visible」）プログラムで、なおかつ、「.impex」という文字を含んでいれば、1 行カウント
If ts.Visible = True And p > 0 Then
r = r + 1
'MsgBox ts & "あった : " & Right(datFile, 24)
'ファイル名と一致するか否か確認　※文字数に合わせて数値の変更：Right(datFile, ★)
If Left(ts, 17) Like Left(Right(datFile, 24), 17) Then
'エラーメッセージを表示してシナリオ終了
MsgBox "同一名称の.impexファイルが開いています。ファイルを閉じてから再度実行してください。"
Exit Sub
Else
'MsgBox Left(ts, 17) & ":" & Left(Right(datFile, 24), 17) & "は一致しない"
End If
'実際に「ts.Name」の値は、「ファイル名」＋「表示しているアプリケーション」になってしまうので、「Mid()」関数によって、後ろの部分を削除しています（正確には、「ts.Name」の１文字目から、「.impex」までをセルに書き込んでいます）。
Cells(r, 1).Value = Mid(ts.Name, 1, p + 3)
End If
Next