|
自動記録であるファイルを開き、シートの内容全てを
コピーし、別ブックの指定したシートに貼りつけるという
マクロをつくりました。
あくまでもシートの内容をコピー(シートごとコピーはしたくない)
VBA記述だともっと簡単(シンプル)にできるのかと
思うのですが、どなたか教えてください。
コピー先ファイル名:10月実績(このマクロを含むブック)
コピー元ファイル名:10月見込
Sub 別シートよりシート内容コピー()
ChDir "D:\10月報告"
Workbooks.Open Filename:="D:\10月報告\10月見込.xls"
Cells.Select
Selection.Copy
Windows("10月見込.xls").Activate
Sheets("実数").Select
Cells.Select
Range("A1").Activate
ActiveSheet.Paste
Range("A1").Select
Windows("10月見込.xls").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub
|
|