VBA「アプリケーション定義またはオブジェクト定義のエラー」

Question

#複数ファイルから指定のセルの中身を取得したいがエラーがでる。

#やりたいこと
「経歴書」というディレクトリにあるファイルの中から
各部分を取得する

#エラー
実行時エラー'1004';
アプリケーション定義またはオブジェクト定義のエラーです

#ディレクトリ構成

ディレクトリ

C:\Users\XXXXX\Desktop\練習\経歴書

経歴書

技術経歴書(AA).xlsx
技術経歴書(BB).xlsx
技術経歴書(CC).xlsx
・
・
・
技術経歴書(ZZ).xlsx

#コード

コードSub データ収集()

Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim pass As String
pass = ThisWorkbook.Path & "\経歴書"

Dim name As String '名前 D5
Dim sex As String '性別 E5
Dim birth As Date '生誕 F5
Dim age As String '年齢 I5
Dim i As Long  '経歴書の行数
Dim j As Long  'popの行数
Dim f As File  'ファイルを代入する変数

j = 2
 
For Each f In fso.GetFolder(pass).Files
    With Workbooks.Open(f)
        With .Worksheets(1)
            name = .Range("D5").Value      '名前
            sex = .Range("E5").Value       '性別
            birth = .Range("F5").Value     '誕生日
            age = .Range("I5").Value       '年齢
      
            i = 5
            Do While .Cells(i, 1).Value <> ""
                Sheet1.Cells(j, 1).Value = name          '名前
                Sheet1.Cells(j, 2).Value = sex           '性別
                Sheet1.Cells(j, 3).Value = birth         '生誕
                Sheet1.Cells(j, 4).Value = age           '年齢
                i = i - 1
                j = j + 1
            Loop
        End With
        .Close
    End With
Next f

End Sub

#思い当たる節
ステップインで確かめているとFor文2行目でエラーになっているぽい。
「With Workbooks.Open(f)」

どなたか知恵をお貸しください。

Answer 1

With Workbooks.Open(f)
↓
With Workbooks.Open(f.Path)

Workbooks.Openの引数はファイルのフルパスを渡す。
fはfileオブジェクトなのでエラーになる。
f.Path でフルパスを取得できる。

Comments

[masaof]

ありがとうございます！

現在、回答通りやってみたのですが
値が取得されませんでした。

コードを確認して、修正を行い
それでも厳しい場合は再度ご質問させていただきます。

[hatena19]

質問文では、ディクトリーは
「C:\Users\XXXXX\Desktop\練習\経歴書」
コードでは、
pass = ThisWorkbook.Path & "\経歴書"
これは大丈夫ですか。

[radames1000]

検証したところOpenメソッドはFileオブジェクトを指定しても開くようなので、
ディレクトリーの指定が怪しい気がしますね。

[hatena19]

なるほど、確認してみたらFileオブジェクトでも開きますね。Fileオブジェクトの既定のプロパティがPathということなのでしょうね。

[radames1000]

Debug.Print fでPathが表示されるのでそのようですね。
色々探しても既定値の記載が見つけられずで断念しました笑
⇒オブジェクトブラウザに規定値記載あり。なぜかWorkbookオブジェクトを見てました。

[masaof]

hatena19、radames1000様
ご回答ありがとうございます。

hatena19様が記載されていた内容のパスは得に問題ありませんでした。
また内容にエラー等ございませんでしたので、hatena19様をベストアンサーと
させていただきます。
ありがとうございました。

Answer 2

エラーが起きる1行前に Debug.Print f.Path と入れて確認してみたらどうでしょう。