MS Access-VBA konvertieren-Abfrage-Ausgabe in Excel-format, aber nicht überall speichern

Öffnen Sie Ihre Datei ohne speichern, indem Sie eine Excel-Instanz (oder greifen ein bereits vorhandenes) und mit der CopyFromRecordset Funktion der Excel.Range Objekt.

Diese übernimmt Ihre Daten werden in einem ADO-recordset. Sie müssen Verweise auf Microsoft Excel XX.0 Object Library - und Microsoft ActiveX Data Objects X. X Library " (wenn Sie ADO verwenden. Wenn Sie DAO verwenden, dann verwenden Sie, was DAO-Verweis, die Sie brauchen)

Ich diese nutzen, um schnappen Sie sich einen eine Excel-app oder eine neue erstellen, wird Excel nicht geöffnet sein. Ich benutze WasANewInstanceReturned Abbildung wie muss ich das bereinigen der Excel-Ressourcen am Ende. (Natürlich glaube ich nicht wollen, beenden Sie Excel, wenn es wird die Nutzung durch etwas anderes).

Function GetExcelApplication(Optional ByRef WasANewInstanceReturned As Boolean) As Excel.Application

    If ExcelInstanceCount > 0 Then
        Set GetExcelApplication = GetObject(, "Excel.Application")
        WasANewInstanceReturned = False
    Else
        Set GetExcelApplication = New Excel.Application
        WasANewInstanceReturned = True
    End If
End Function

Dann schnapp dir die Instanz

Dim ApXL As Excel.Application, WasANewInstanceReturned as Boolean
Set ApXL = GetExcelApplication(WasANewInstanceReturned)

Fügen Sie eine Arbeitsmappe

Dim wbExp As Excel.Workbook
Set wbExp = ApXL.Workbooks.Add

Greifen das erste Blatt

Dim wsSheet1 As Excel.Worksheet
Set wsSheet1 = wbExp.Sheets(1)

Setzen Sie Ihre recordset Feldnamen in der ersten Zeile

Dim fld As ADODB.Field
Dim col As Integer
col = 1
With wsSheet1 
For Each fld In rst.Fields
    .Cells(1, col).Value = fld.Name  'puts the field names in the first row
    End With
    col = col + 1
Next fld
End With

Dann verschieben Sie die Daten direkt unter dem Feldnamen

wsSheet1 .Range("A2").CopyFromRecordset rst

Voila! Sie haben eine excel-Datei öffnen, mit Ihren Daten, die nicht gespeichert wurden überall!

Ich in der Regel ApXL.ScreenUpdating = False bevor Sie irgendwelche von diesem, und ApXL.ScreenUpdating = True am Ende.

Ich lasse Sie Nähen diese zusammen für Ihre Bedürfnisse.

InformationsquelleAutor Brad

Ich öffnen und exportieren eine Abfrage aus access nach excel. Zuerst erstellte ich ein Arbeitsblatt in excel und gespeichert. Dann erstellte ich ein Modul in den vba-Teil des Zugangs (2013):

Option Compare Database


' Testtoexporttoexcel'

Function ExportQuerytoExcel()

On Error GoTo ExportQuerytoExcel_Err

' Exports the query to excel to a sheet named Nameofyoursheet

    DoCmd.TransferSpreadsheet acExport, 10, "nameofyourquery", "yourPath:\nameofyourworkbook", False, "Nameofyour worksheet"


ExportQuerytoExcel_Exit:
    Exit Function

ExportQuerytoExcel_Err:

    MsgBox Error$

    Resume ExportQuerytoExcel_Exit

End Function

-----then add another function that says:

Option Compare Database

Function OpenExcelFromAccess()

'Opens Excel to the chart

 Dim MYXL As Object

 Set MYXL = CreateObject("Excel.Application")

  With MYXL

  .Application.Visible = True

  .workbooks.Open "Yourpath:\nameofyourworkbook"

  End With

  'Application.Quit

End Function

hoffe, dies hilft, dies ist meine erste Zeit mit der Beantwortung einer Frage.
Aloha

InformationsquelleAutor DeLara