エクセル VBAで新しいブックを作成する方法と障害対策

2013/05/17 19:57

このQ&Aのポイント

エクセル VBAを使用して新しいブックを作成する方法について説明します。必要なコードを記述することで、親ワークブックから子ワークブックを作成することができます。しかし、２００３バージョンでは開けない、２００７バージョンで開こうとするとエラーメッセージが表示されるなどの障害があります。また、作成時に不要なワークシートが残ってしまうことも問題です。この記事では、これらの障害に対する対策方法も解説します。
エクセル VBAで新しいブックを作成する方法として、親ワークブックから子ワークブックを作成するためのコードを提供します。さらに、２００３バージョンや２００７バージョンの対応方法も解説します。また、ワークシートの数を調整する方法も説明します。この記事を参考にして、効果的な新しいブックの作成方法を実現しましょう。
エクセル VBAを使用して新しいブックを作成する方法について説明します。親ワークブックから子ワークブックを作成するために必要なコードを提供します。また、２００３バージョンと２００７バージョンでの違いや、不要なワークシートが残る問題についても解説します。この記事を読んで、新しいブックの作成に関する知識を深めましょう。

mayu1992
お礼率73% (49/67)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

cj_mover
ベストアンサー率76% (292/381)

2013/05/17 22:26 回答No.1

こんにちは。３行追加、１行変更（書き足し）です。 .SaveAs メソッドについては、一応、VBAヘルプ目を通しておいてください。 /// 　　'Dim nShInNWB As Long ' ● 　　' ' 新しいブックを開いた時のシート数　　' ' 後で元に戻す為に変数に記録　　nShInNWB = Application.SheetsInNewWorkbook ' ● 　　' ' 新しいブックを開いた時のシート数を指定　　Application.SheetsInNewWorkbook = 1 ' ● ShName = ThisWorkbook.ActiveSheet.Name Set objWorkBook = Workbooks.Add objWorkBook.ActiveSheet.Name = "○○商事" Call 処理 Set WSH = CreateObject("Wscript.Shell") Path = WSH.SpecialFolders("Desktop") & "\" ''On Error Resume Next '上書き保存をキャンセルした時の取り合えずの回避策（宿題(^^;)） ''ActiveWorkbook.SaveAs Path & "○○系_" & ShName & ".xls" 　　' ' Excel2003互換、.xlsで"名前を付けて保存" 　　objWorkBook.SaveAs Filename:=Path & "○○系_" & ShName & ".xls", FileFormat:=xlExcel8 ' ● 　　' ' 新しいブックを開いた時のシート数を元に戻す　　Application.SheetsInNewWorkbook = nShInNWB ' ● Set WSH = Nothing Set objWorkBook = Nothing /// 以上です。

質問者