|
日毎のシートリンク作成のため、下記のVBAをサイトから検索して作成しました。
もとのブックが3メガと大きいため、シートの値と書式だけをコピーしたいと考えています。
しかし、このVBAを実行するとSheetのVBAもコピーされるし、計算式もコピーされて、2M程度の大きいブックとなってしまいます。
どうかお助け願います。
Sub シート保存()
Dim fl_name As String
Dim 日付 as integer
Application.ScreenUpdating = False
日付 = Worksheets("Sheet1").Range("A1").Value
fl_name = 日付 & ".xls"
Worksheets(Array("Sheet1", "Sheet3")).Copy
ChDir "D:\仕事"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fl_name
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
|
|