アクセスからエクセルへの転記、シート指定 ネットで調べて下記のコードを使用しました。これだとシートＡにしか出力が出来ません。（最後に開いたシートに転記されるようなので閉じる前にシートＡを選択してから閉じます。） 使用しているエクセルテンプレートにはシートＡ，Ｂ，Ｃ，Ｄがありそれぞれ必要とするデーター、フォーマットが異なっています。 Ｂ，Ｃ，Ｄシートにもデーターを出力したいです。具体的にいうと、今使っているＶＢＡのシートＡの転記が終わったらシートＢへの転記、その後はＣ，Ｄのシートへと転記を続ける。このためには下記コードにさらにどのようなコードを入れればいいのか教えていただきたいです。 Dim dbs As Database Dim qdf As QueryDef Dim rst As Recordset Dim xls As Object Dim intRow As Integer Dim lngOrderID As Long Dim strSaveBookPath As String Const cstrTemplateDir As String = "\\D:\RExcel出力\伝票Template\" Const cstrTemplateBook As String = "受注出荷入力原票Ver3.13.xlsx" Set dbs = CurrentDb Set qdf = dbs.QueryDefs("Q04出荷書Excel出力1") With qdf .Parameters("[Forms]![F04出荷書1]![出荷書1ID]") = Forms!F04出荷書1!出荷書1ID Set rst = .OpenRecordset End With Set xls = CreateObject("Excel.Application") With xls .ScreenUpdating = False .Workbooks.Open cstrTemplateDir & cstrTemplateBook ’シートＡへ転記開始。顧客情報を転記。 .Cells(3, 6).Value = rst!顧客名 'ループ転記(商品情報の転記） intRow = 14 Do Until rst.EOF ’ここで販売商品情報を入れます。） intRow = intRow + 4 rst.MoveNext Loop rst.Close ★シートＡへの転記が終わりました。 ここでシートＢへと移るコードが知りたいです。 Dim Path As String Dim WSH As Variant Set WSH = CreateObject("Wscript.Shell") Dim DesktopPath As String DesktopPath = WSH.SpecialFolders("Desktop") & "\" Set WSH = CreateObject("Wscript.Shell") strSaveBookPath = DesktopPath & Format(Me!見積書1ID, "0000" & "-1") & "出荷処理依頼書" & ".xlsx" On Error Resume Next Kill strSaveBookPath On Error GoTo 0 .ActiveWorkbook.SaveAs strSaveBookPath .ScreenUpdating = True .Quit End With Set xls = Nothing Set WSH = Nothing a = MsgBox("デスクトップへ出力完了")