MS Access將.csv轉換爲.xls

Question

這是我的代碼，但由於某些原因，它在saveas行上失敗（對象不支持等）。

Sub convertToXLS() 
    Dim wb As Object 
    Set wb = CreateObject("Excel.Application") 
    Dim strFile As String 
    strFile = "C:\path to my file\filename.csv" 

    wb.Workbooks.Open (strFile) 
    With wb 
     .SaveAs FileName:=Replace(strFile, ".csv", ".xls") 
     .Close True 
    End With 
    Set wb = Nothing 

End Sub 

Answer 1

在你的代碼wb是Excel.Application對象，而不是Excel.Workbook。 Excel.Application不支持SaveAs方法。用戶這一塊，而不是：

Sub convertToXLS() 
    Dim xlApp As Object 
    Dim wb As Object 
    Dim strFile As String 

    Set xlApp = CreateObject("Excel.Application")   
    strFile = "C:\path to my file\filename.csv"  
    Set wb = xlApp.Workbooks.Open(strFile) 

    With wb 
     ' where 56 is value of excel constant xlExcel8 
     .SaveAs FileName:=Replace(strFile, ".csv", ".xls"), FileFormat:=56 
     .Close True 
    End With 
    'clean up 
    Set wb = Nothing 
    xlApp.Quit 
    Set xlApp = Nothing 
End Sub