MS Access에서 .xls로 변환합니다.

Question

여기에 제 코드가 있지만, 어떤 이유로 saveas 라인에서 실패하고 있습니다 (오브젝트가 지원하지 않습니다 등). 코드 wb에서

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

오히려 Excel.Workbook보다 Excel.Application 개체입니다. 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