Экспортируйте запрос доступа в существующую книгу Excel, затем откройте книгу

Question

У меня есть запрос, который экспортируется в рабочую книгу, и он отлично работает, но я хотел бы открыть рабочую книгу после экспорта запроса. Я попытался добавить «true» в конец кода, но это привело к ошибке.

Вот код

Private Sub CmdPrintX_Click()
DoCmd.OpenQuery "qryInternalPOs", acViewNormal, acEdit
 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
    "qryInternalPOs", "T:\PURCHASE ORDERS\POs created in access\qryInternalPOs.xlsx", 1
End Sub

Answer 1

Попробуйте это:

    Private Sub CmdPrintX_Click()
    Dim XlsApp As New excel.Application
    Dim XlsWB As New excel.workbook
    Dim filePath As String
        filePath = "T:\PURCHASE ORDERS\POs created in access\qryInternalPOs.xlsx"
        DoCmd.OpenQuery "qryInternalPOs", acViewNormal, acEdit
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
           "qryInternalPOs", filePath, 1
        Set XlsApp = CreateObject("Excel.Application")
        Set XlsWB = XlsApp.Workbooks.Open(filePath)
    End Sub