vbaの構文の修正相談（xmlファイルを順に開いてコピペ作業）

下記、vbaの構文の修正を教えて頂けないでしょうか。
xmlファイルを順に開いて、コピペする作業をしたいのですが、下記内容だと、xmlファイルが表形式で正しく開かず、コピペがうまくできません。

Sub OpenFilesInFolder()
Dim path, fso, file, files
Dim target
path = ThisWorkbook.path & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(path).files
'フォルダ内の全ファイルについて処理
For Each file In files
'ファイルを開いてブックとして取得
Dim wb As Workbook
Set wb = Workbooks.Open(file)
'ブックに対する処理
target = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
wb.Range(Cells(2, 25), Cells(289, 25)) = Cells(target.Row, 1)
wb.Range(Cells(2, 27), Cells(289, 27)) = Cells(target.Row, 2)
wb.Range(Cells(2, 28), Cells(289, 28)) = Cells(target.Row, 3)
'保存せずに閉じる
Call wb.Close(SaveChanges:=False)
Next file
End Sub

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/04/22 08:27

vba xmlファイル読み込み

で検索すると、読み込みの例がでてきます。
https://zenn.dev/alfina2538/articles/5b28d3e0edd …
https://www.depthbomb.net/?p=8264
等を参考にされてはいかがでしょうか。

この回答へのお礼

ありがとうございました

お礼日時：2023/04/22 13:37