|
凪 さん、こんばんわ。
>助言お願いします。
XMLはXL2000では試せないようなので、詳しいことは別の人に頼むとして、処理の流れを。
貼り付け先のブックについて特に指定がないようなので、
1つめのXMLに2つめのXMLで出来たシートをコピーしています。
Sub test()
Dim fil(1 To 2) As String, wb(1 To 2) As Workbook
'ファイル名取得
For II = 1 To 2
fil(II) = Application.GetOpenFilename'必要に応じて引数を指定
Next
If Not (fil(1) = "False" Or fil(2) = "False") Then
Set wb(1) = Application.Workbooks.Open(fil(1))
Set wb(2) = Application.Workbooks.Open(fil(2))
'二つ目のシートをコピーする
wb(2).Worksheets(1).Copy after:=wb(1).Worksheets(1)
End If
'二つ目は閉じる
With wb(2)
.Saved = True
.Close
End With
Erase fil, wb
End Sub
htmlを二つ開いてでテストしました。
新しく開かれたブックは、保存するときは標準形式にする必要があります。
|
|