- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
775 ：デフォルトの名無しさん[sage]：2015/11/15(日) 00:08:40.06 ID:Qu/OYjly - >>774
Option Explicit
Private WithEvents APPev As Application
Private Sub Workbook_Open()
Set APPev = Application
End Sub
Private Sub APPev_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox Wb.Name & "がセーブされようとしてます。"
End Sub
|
- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
785 ：デフォルトの名無しさん[sage]：2015/11/15(日) 14:50:35.49 ID:Qu/OYjly - >>782
新規ブックを作ってから コピーじゃなくて 最初からシートコピーでやる
・コピー先を指定しないと勝手にブックが作られる
・手動のシートコピーにも(新規ブック)あるよねあれをマクロの記録してみ分るから
Dim NewBook As Workbook
Sheets("Sheet1").Copy
Set NewBook = ActiveWorkbook
NewBook.SaveAs Filename:="D:\新規ブック.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
|
- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
786 ：デフォルトの名無しさん[sage]：2015/11/15(日) 15:50:50.01 ID:Qu/OYjly - >>785
案-2)
メンドイからコード作らないけど
1)Workbooks.Add で新規ブックを作った後 新規ブックのシート一つを残してシートを削除
2)シートコピー
で元々あったのは1コしか残ってないから 決め打ちでもなんでもどうぞで削除
(ま 1) の段階で残ったシートを set Delsh = sheets(1) とかで保存しておくかな)
|