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