Excel VBA数据导出

Question

下面是我写的代码，用于将数据从访问导出到Excel，但无法看到任何记录。

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 

请指教

Answer 1

为什么不使用时只需将DoCmd.TransferSpreadsheet方法

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

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