Excel VBA-Datenexport

Question

Hier ist der Code, den ich geschrieben habe, um Daten aus dem Zugriff auf Excel zu exportieren, aber keine Datensätze sehen kann.

Sub copyFromRecordset() 

    Set conn = New ADODB.Connection 
    Set wipData = New ADODB.Recordset 

    conn.ConnectionString = conStr 
    conn.Open 

    With wipData 
     .ActiveConnection = conn 
     .Source = "WipBin" 
     .LockType = adLockReadOnly 
     .CursorType = adOpenForwardOnly 
     .Open 
    End With 

    Worksheets.Add 
    Range("A2").copyFromRecordset wipData 

    wipData.Close 
    conn.Close 

End Sub 

bitte Rat

Answer 1

Warum nicht einfach die DoCmd.TransferSpreadsheet Methode

DoCmd.TransferSpreadsheet acExport, , "TABLE name", "filelocation" 

https://msdn.microsoft.com/en-us/vba/access-vba/articles/acspreadsheettype-enumeration-access