質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.59%

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 687

score 19

前提・実現したいこと

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

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

該当のソースコード

For Each objBook In **Workbooks** ←たぶんここが正しくない
If objBook.Name = strBookName Then
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • mattuwan

    2019/01/29 19:26

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

    キャンセル

  • imihito

    2019/01/29 20:24

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

    キャンセル

回答 2

+1

下記内容に読み替えての回答となります、違う場合は無視して下さい。
>現在開いている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 15:00

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

    キャンセル

check解決した方法

-1

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」)の中身を1つずつ調べる
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」の1文字目から、「.impex」までをセルに書き込んでいます)。
Cells(r, 1).Value = Mid(ts.Name, 1, p + 3)
End If
Next

'ファイルを展開
Open datFile For Output As #1

'ワードを終了
wd.Quit
Set wd = Nothing

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.59%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る