Access2000:VBAを使用したエクセル操作

質問

下記のように既存のエクセルファイルにクエリからとってきたデータを挿入したいと考えております。

既存のエクセルファイルを開くことは成功したのですが、ある条件だとシートを追加するという処理（オブジェクト記述）がわかりません。

シート追加、あわせてブック追加方法もお願いします。

Set ExcelApp = CreateObject("Excel.Application")
Set Book = ExcelApp.Workbooks.Open("C:\query\module\VBExcel.xls")
Set Sheet = Book.Worksheets("test1")←追加したい

回答No.1

nicotinism · ベストアンサー

こんな塩梅かと思います。
Sub test()
Dim ExcelApp As Object
Dim ExcelBK As Object
Dim ExcelBK_New As Object
Dim ExcelST As Object
Dim ExcelST_New As Object

Set ExcelApp = CreateObject("Excel.Application")
'既存Bookに追加
Set ExcelBK = ExcelApp.workbooks.Open("f:\data\123\book1.xls")
ExcelApp.Sheets.Add after:=ExcelApp.Sheets(ExcelBK.Sheets.Count)
ExcelApp.ActiveSheet.Name = "NewTes1"

'新規Book作成
Set ExcelBK_New = ExcelApp.workbooks.Add '("g:\test.xls")
Set ExcelST_New = ExcelBK_New.worksheets(1)
ExcelST_New.range("A1") = "おニューです"

ExcelBK.Save
ExcelBK_New.Saveas Format(Now, "yyyymmdd_hhnnss") & "test.xls"
ExcelApp.Quit
Set ExcelBK = Nothing: Set ExcelApp = Nothing
Set ExcelBK_New = Nothing: Set ExcelST_New = Nothing
End Sub

補足

ありがとうございます。

完璧なご回答です。