|
Sub 保存
Cells.Select
Range("A13").Activate
Sheets(Array("Sheet1", "ピボットテーブル", "Sheet3")).Select
Sheets("Sheet1").Activate
Sheets(Array("Sheet1", "ピボットテーブル", "Sheet3")).Copy
ChDir ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:="book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="book2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
というコードをマクロの記録を編集して書きました。CSVで編集したファイルのシートをすべて新しいブックにコピーして保存するという処理をしたいのですが、保存したファイルを開くと毎回「このブックには更新できないリンクが1つ以上含まれています」というメッセージがでて「継続」「リンクの編集」を選択するボタンがでます。
この表示が出ないように保存するにはどうしたらいいでしょうか?
説明が下手で申し訳ないのですが、どなたか教えて下さいm(__)m
|
|