Access - Exportar a excel a más de una Hoja

DoCmd.OutputTo acOutputQuery, "cCierre", "ExcelWorkbook(*.xlsx)", "C:\InformesOjo\InfosCat.xlsx", False, "", , acExportQualityScreen

Dim appExcel As New Excel.Application

Dim Libro As Excel.Workbook

Dim Hoja As Excel.Worksheet

Set Libro = appExcel.Workbooks.Open(FileName:="C:\InformesOjo\InfosCat.xlsx", UpdateLinks:=xlUpdateLinksAlways, Password:=" ")

Set Hoja = Libro.Worksheets.item(Item 1)

Libro.Close SaveChanges:=True

Dim miExcel As Excel.Application, miLibro1 As Excel.Workbook, miLibro2 As Excel.Workbook

    Dim miHoja2 As Excel.Worksheet, i As Integer

    Dim Path As String

    Const NombreLibro = "Resultados consultas.xlsx"

On Error GoTo Exportar_Err

    Set miExcel = CreateObject("Excel.Application")

    'Creamos un nuevo libro

    Set miLibro1 = miExcel.Workbooks.Add

    Path = CurrentProject.Path & "\"

    'Si ya hay un libro con ese nombre lo eliminamos

    If Dir(Path & NombreLibro) <> "" Then

        Kill Path & NombreLibro

    End If

    'Lo guardamos

    miLibro1.SaveAs Path & NombreLibro

    For i = 1 To 3

        'Exportamos la consulta

        DoCmd.OutputTo acOutputQuery, "MiSQL" & i, acFormatXLSX, Path & "Temp" & i & ".xlsx", False

        'Abrimos el libro recién creado

        Set miLibro2 = miExcel.Workbooks.Open(Path & "Temp" & i & ".xlsx")

        'Seleccionamos la hoja1

        Set miHoja2 = miLibro2.Worksheets(1)

        'La copiamos al libro nuevo

        miHoja2.Copy Before:=miLibro1.Worksheets(i)

        'Cerramos el libro temporal

        miLibro2.Close False

        'Y lo borramos

        Kill Path & "temp" & i & ".xlsx"

    Next

    'Lo hacemos visible y lo guardamos

    miExcel.Visible = True

    miLibro1.Save

GoTo Exportar_Fin

    'Control de errores

Exportar_Err:

    If Err = 1004 Or Err = 70 Then 'No se puede acceder al libro

        MsgBox "El libro " & NombreLibro & " puede que esté abierto. Ciérrelo e inténtelo de nuevo."

    Else

        MsgBox "ERROR " & Err.Number & ": " & Err.Description

    End If

Exportar_Fin:

    Set miExcel = Nothing

    Set miLibro1 = Nothing

    Set miLibro2 = Nothing

    Set miHoja2 = Nothing

End Sub