2017-01-30 15 views

答えて

0

以下のコードを使用してファイルをインポートできます。このコードでは、Excelファイルから1枚のシートをインポートしていて、名前が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 
関連する問題