Excelでアクティブシートのみを保存するためのVBAコード
GustavD 受付中
最終更新日:2021-06-16 21:04
良い日
助けてください.
私は命令が労働者に発行されるExcelテンプレートを使用します.テンプレートには35枚です.各命令に全てのシートが使用されるわけではありませんが、一例として3,4,6,13,33になることがあります.他の時代はさまざまなシートでしょう.これは非常に基本的なテンプレートですので、同様の指示が入力されたシートを選択し、それらのシートを印刷し、次に選択したシートのみをワークブックとして保存したいと思います.そして数.(日付と番号は大丈夫です、そのコードがあります)
私はあなたがこれを助けることができれば私は本当に感謝します.
ありがとうございました
返信リスト(回答:1)
1 #
HansVMV
これを開始点として使用できるかどうかを確認してください.
サブSaveSelectedSheets()
薄暗いrtpath
ムラ
'次の2行を任意の2行に変更する
strpath= thisWorkbook.path
strname= ActiveWindow.SelectedSheets(1).Range( "A1").value&"_"&format(日付、 "yyyymmdd")&".xlsx"
application.ScreenUpdating= false
ActiveWindow.SelectedSheets.copy
ActiveWorkbook.Close SaveChanges:= true、filename:= strpath&"\"&strname
application.ScreenUpdating= true
終了SUB