| |
▼Asaki さん：
>こんばんは。
>
>マクロの記録をお試しください。
マクロを記録して実行してみました。
ありがとうございました。
実際は、新規のブックを開き、そのシートを下降した後
ＷＯＲＫで使用したシートを削除したいという形でしたが
マクロを実行するタイミングが重要と言うことがわかりましたので
お礼させていただいた上で、ここに記述させていただきます。
'作業した後、新規ブックに名前を付けて保存
ActiveWorkbook.SaveAs Filename:="C:\My Documents\aa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Call Macro1 'シートを削除するマクロの実行
'再度同様の名前で保存
ActiveWorkbook.SaveAs Filename:="C:\My Documents\aa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'ブックを閉じる
ActiveWindow.Close
この流れではシートが削除されませんでした。
実行できたのは以下の流れ
'作業した後、新規ブックに名前を付けて保存
ActiveWorkbook.SaveAs Filename:="C:\My Documents\aa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'ブックを閉じる
ActiveWindow.Close
'閉じたブックを再度開いてシートを削除するマクロの実行
Call Macro1
'再度同様の名前で保存
ActiveWorkbook.SaveAs Filename:="C:\My Documents\aa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'ブックを閉じる
ActiveWindow.Close
一度保存したブックを閉じ、再度開くことが必要だったようです。
何故かは判明していませんが。
とにかく、期待していたとおりに動くようになりました。
ありがとうございました。
|
|
