|
▼kobasan さん:
ありがとうございました、ファイルを開かない方法は出来ませんでしたが、何とか下記マクロでやりたいことが出来ました。
Sub Macro1()
'=====コピー================================
Sheets("入力結果").Range("A2:F1000").Copy
'=====入力結果保存==========================
Workbooks.Open "C:\累積.xls"
Windows("累積.xls").Activate
Sheets("累積結果").Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
ActiveWorkbook.Save
ActiveWorkbook.Close
'=====入力結果クリヤ========================
Windows("入力.xls").Activate
Sheets("入力結果").Range("A2", "F" & Range("A65536").End(xlUp).Row).ClearContents
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
|
|