|
既存のBOOKをデータベースとして、新規BOOKを作りそこに必要なシートをコピーします。
そのこぴーするシートの中に、vbaのコマンドボタンもデータと同じ様にコピーされて
しまいます。
シート名(**ライン)とついた物を新規BOOKにコピーしてます。
書式・印刷設定を維持したいためにシートごとコピーとしているのですが、
コマンドボタンの消し方が解かりません。
ちなみに、このvbaはsheet1に記述していますが、
これが正しい場所かどうかも解かりません。
どうか教えてください。
(新規BOOKは名前を付けてませんが、「今日日付+”ライン”」という名前
で保存したいと考えています。)
以上
本人が作ったプログラムを下に記述します。
Sub シートのコピー()
Dim WS As Worksheet
Dim WB1 As Workbook
Dim WB2 As Workbook
Application.ScreenUpdating = False '画面の更新を停止
'Workbooks.Open Filename:="C:\売上\18期売上.xls" 'コピー先のブックを開く
'Set WB1 = Workbooks("18期売上.xls") 'コピー先のブックを変数に代入
Set WB2 = ThisWorkbook
LastRow1 = Range("O65536").End(xlUp).Row
Set WB1 = Workbooks.Add
Range("A3:CG" & LastRow1).Copy WB1.Sheets(1).Range("A3")
For Each WS In ThisWorkbook.Worksheets 'コピー元のすべてのワークシートに対して処理を繰り返す
If WS.Name Like "*ライン*" Then 'シート名に「ライン」の文字列が含まれる場合
WS.Copy AFTER:=WB1.Sheets(WB1.Sheets.Count) 'ワークシートをコピー先ブックにコピー
End If
Next WS
Application.ScreenUpdating = True '画面の更新を有効
END SUB
|
|