|
▼凪 さん:
こんな感じではどうでしょう?
'XMLデータを取り込むステートメント
Sub コピーxml()
ActiveWorkbook.XmlImport URL:="C:\フォルダ名\****.xml", _
ImportMap:=Nothing, Overwrite:=False, Destination:=Range("A1")
End Sub
後、下のものに追加した場合どうでしょうか?
>方法2
>Set Wb(0) = Application.Workbooks.OpenXML(C_File(0), LoadOption:=xlXmlLoadImportToList)
>
>Set Wb(1) = Application.Workbooks.OpenXML(C_File(1), LoadOption:=xlXmlLoadImportToList)
>
>Wb(1).Sheets(1).Select
>Cells.Select
>Selection.Copy
>Wb(0).Sheets(2).Activate
>Wb(0).Sheets(2).Select
>Cells.Select
>ActiveSheet.Paste
Application.CutCopyMode = False ''''追加
.Close SaveChanges:=False
>
>この方法だとコピーは行えるのですがその後の処理で「メモリが足りません」と
>すぐ表示されてしまいました。
>
>使用するファイルの内容は容量約5MBで15000行の50列ほどあります。
>
>よろしくお願いします。
|
|