vba ファイルを開かずに参照

Question

分かりやすいように書き換えていましたが、本来のコードで質問させていただきます
sampleでFileSearchを引数つきで呼び出します
一番下のFor Each Folder In FSO.GetFolder(path).SubFoldersの記述でサブフォルダを再帰を使い全て取得していきます。

Do While book <> ""で、サブフォルダに指定したファイル(book)がある場合、そのファイルを開かずに何らかの処理をしたいと思っています

以下だとオブジェクトは、このプロパティまたはメソッドをサポートしていません。と表示されてしまいます。

Sub sample()

Call FileSearch("C:\Users\kimura\Documents\Document\テスト)
End Sub

Sub FileSearch(path As String)

Dim FSO As Object, Folder As Variant, File As Variant, buf As String

Set FSO = CreateObject("Scripting.FileSystemObject")
book = Dir(path & "*テスト.xls*")

Do While book <> ""

Thisworkbook.Worksheets("イベント").Range("A33").Value = ExecuteExcel4Macro("'" & path & "[" & buf & "]テスト2シート'!R1C1")


buf = Dir()

Loop


For Each Folder In FSO.GetFolder(path).SubFolders
   Call FileSearch(Folder.path)
Next Folder


End Sub

参照サイト
https://excel-ubara.com/excelvba5/EXCELVBA242.html
https://binary-star.net/excel-vba-excel4-dellsdataread

Comments

[kaputaros]

*を伏字にするのなら、別の仮の名前をつけてしまった方がいいですよ。

[yakumo02]

ご指摘ありがとうございます。

[hatena19]

「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」というエラーはどの行ででてますか。

Answer 1

なんかもう、滅茶苦茶なコードですね。
いろいろなサイトのコードを意味も理解せずに適当につなげたようなコードで支離滅裂です。
一つずつ指摘していったらキリがないので、

とりあえず、C:\Users\ユーザー名\Documents\Document\ フォルダーにあるエクセルファイル（ファイル名に「テスト」を含むもの）の テスト2シート の R3C2（B3セル）の値をメッセージボックスに表示する場合は下記になります。

Sub FileSearch()
    Const path = "C:\Users\ユーザー名\Documents\Document\"
    Dim buf As String, ca

    buf = Dir(path & "*.xls*")
    
    Do While buf <> ""
    '開かずに処理
        ca = ExecuteExcel4Macro("'" & path & "[" & buf & "]Sheet1'!R2C3")
        Debug.Print ca
        buf = Dir()
    Loop

End Sub

Comments

[yakumo02]

すみません、修正しました

[hatena19]

book = Dir(path & "*テスト.xls*")

Do While book <> ""
は
buf = Dir(path & "*テスト.xls*")

Do While buf <> ""
ですね。

[hatena19]

Call FileSearch("C:\Users\kimura\Documents\Document\テスト)
は、
Call FileSearch("C:\Users\kimura\Documents\Document\テスト")
ですね。
あと、「テスト」というフォルダーは、C:\Users\kimura\Documents\Document\内にあるのでしょうか。
また、結果をすべてA33セルに上書きしてますが、それでいいのでしょうか。

[yakumo02]

ありがとうございました！
何とか解決しました

Answer 2

Do While buf <> ""

のbufってなんだろう・・。

Comments

[yakumo02]

すみません、修正しました。
bookでございます

[mako1972]

こういうパスってあるんですか・・。
path = "C:\Users**\Documents\Document*"

[kaputaros]

ワイルドカードにしたいんですね、きっと。

[yakumo02]

すみません、修正しました
ワイルドカードではなく、伏字にしてあります。紛らわしく申し訳ありません

Answer 3

pathが文字列として扱われてしまっているのでは？

ca = ExecuteExcel4Macro("'" & path & "[*テスト.xls*]テスト2シート'!R3C2")

Comments

[kaputaros]

あと、subプロシージャの引数path、いきなり上書きしてて意味ないですよ。

[yakumo02]

すみません、修正しました