VBA エラーについて

Question

下記内容で
「アプリケーション定義またはオブジェクト定義エラーです」
となります。
参考書通りに入力しているはずなのですが、何度入力しなおしてもエラーが
でてしまいます。

どなたか、どの部分でエラーが出ているのか教えていただけないでしょうか。
また、どのような確認方法があるかも合わせてご教授いただけると幸いです。

お手数おかけしますがよろしくお願いいたします。

Sub データ転機()
    Dim mypath As String
    Dim myfile As String
    Dim tatekaebook As Workbook
    Dim tbshukei As ListObject
    Dim mydepartment As String
    Dim myname As String
    Dim tbtatekae As ListObject
    Dim mylistrow As ListRow
    Dim i As Long
    
    
    Set tbshukei = ThisWorkbook.Sheets("データ").ListObjects("集計表") '転機先のテーブル集計
    mypath = ThisWorkbook.Path & "\経費精算ファイル\"
    myfile = Dir(mypath)
    
    
    'Do While myfile <> ""
        Set tatekaebook = Workbooks.Open(Filename:=mypath & myfile) 'コピー元ファイルを全て開く
        myname = tatekaebook.Sheets("経費精算").Range("B5").Value '氏名を代入
        mydepartment = tatekaebook.Sheets("経費精算").Range("B4").Value '部署名を代入
        Set tbtatekae = tatekaebook.Sheets("経費精算").ListObjects("個人立替")
        For i = 1 To tbtatekae.ListRows.Count 'コピー元から一行の値をコピー先へ転機する
            Set mylistrow = tbshukei.ListRows.Add '一行追加
            With mylistrow
                .Range(1).Value = mydepartment
                .Range(2).Value = myname
                .Range(3).Value = tbtatekae.ListRows(i).Range(1).Value
                .Range(4).Value = tbtatekae.ListRows(i).Range(2).Value
                .Range(5).Value = tbtatekae.ListRows(i).Range(3).Value
            End With
        Next
        
            tatekaebook.Close
            myfile = Dir()
    'Loop
    
End Sub

Comments

[jinoji]

F8キーを押すことで１行ずつ実行できますので、どの行でエラーになってしまうのかを探ってみてください。

あとは、この処理で出てくる具体名（「データ」シート、「集計表」テーブル、「経費精算」シート、「個人立替」テーブルなど）がちゃんと存在するかどうかを確かめるとか。

[退会済みユーザー]

jinoji様

ご返答ありがとうございます。
VBAのファイルが所定のフォルダで作成していないためエラーが出ていました。

ありがとうございます。

Answer 1

ステップインしながらデバックすればどこでエラーが出ているかは分かると思います。
「アプリケーション定義またはオブジェクト定義エラーです」
このエラーはその名前のブックやシート、テーブルがないなどの場合が多いと思います。
フォルダ名や作成したテーブルの名前と一致しているか確認されると良いと思います。
私はこちらのコードで動きました。