エクセルファイルのマクロ ファイル変換

質問

micrsoft365のエクセルファイル　たとえば a.xmlファイルを開いたときに
a.xmlのセルA1 ＝ あ
a.xmlのセルB1 ＝ い
a.xmlのセルC1 ＝ う

と　出るとします

これを別の b.xmlファイルに　次のように変換したいとき

b.xmlのセルD2=a.xmlのセルA1 ＝ あ
b.xmlのセルE2=a.xmlのセルB1 ＝ い
b.xmlのセルF2=a.xmlのセルC1 ＝ う

以上の操作をしたいのですが
a.xmlファイルを開いて
マクロを実行して
b.xmlファイルを作成したいのですが、
やりかた
コードなど教えていただけますと
助かります
宜しくお願い致します
OS win10

回答No.1

NuboChan · ベストアンサー

例えば、
以下では　？

Sub CopyXML()
'a.xmlファイルを開く
Workbooks.Open Filename:="a.xml"

'b.xmlファイルを新規作成
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="b.xml", FileFormat:=xlXMLSpreadsheet

'a.xmlファイルの1行目のA1,B1,C1のセルの値をコピー
Workbooks("a.xml").Worksheets(1).Range("A1:C1").Copy

'b.xmlファイルのd1,e1,f1のセルに貼り付け
Workbooks("b.xml").Worksheets(1).Range("D1:F1").PasteSpecial xlPasteValues

'クリップボードをクリア
Application.CutCopyMode = False

'a.xmlファイルを閉じる
Workbooks("a.xml").Close SaveChanges:=False

End Sub

お礼

有り難うございます　試してみます