2017-01-30 1 views

답변

0

아래 코드를 사용하여 파일을 가져올 수 있습니다. 이 코드는 Excel 파일에서 시트 한 개를 가져오고 그 이름이 Sales라고 가정합니다.

Sub Main 
    Call ImportExcel("Sales.xlsx", "Sales") 
End Sub 

Sub ImportExcel(FileName As String, SheetName As String) 
    Dim dbName As String 

    dbName = Client.LocateInputFile(FileName) 
    Set task = Client.GetImportTask("ImportExcel") 
    task.FileToImport = dbName 
    task.SheetToImport = SheetName 
    task.OutputFilePrefix = "Excel" 
    task.FirstRowIsFieldName = "True" 
    task.EmptyNumericFieldAsZero = "False" 
    task.PerformTask 

    Set task = Nothing 
End Sub 
관련 문제