importing excel data

[galis]

Hi All,

I tried importing excel data through this process but I received the following error during run-time:

Code:

"The Data Table.AddSheet operation failed. Invalid argument". sheetcount = DataTable.GetSheetCount If sheetcount < 2000 Then Line (3) datatable.AddSheet(SheetName) datatable.ImportSheet Dir&ExcelName,SheetName,SheetName DataTable.SetCurrentRow(0) End If

The error shows up in line (3) datatable.AddSheet, stop and re-running the script from beginning solve this problem, is there any why to avoid this error.

[manishbhalshankar]

Hi Galis,

First use DataTable.AddSheet("sheetName") and then use DataTable.ImportSheet.

[galis]

Hi manishbhalshankar,

o.k, I am using the add sheet before the importsheet but still I received an error.
Line (1) sheetcount = DataTable.GetSheetCount
Line(2) If sheetcount < 2000 Then
Line (3) datatable.AddSheet(SheetName)
Line (4) datatable.ImportSheet Dir&ExcelName,SheetName,SheetName
Line (5) DataTable.SetCurrentRow(0)
End If


Thanks
Gali

[manishbhalshankar]

Hi,

On line (4), you have "Dir&ExcelName".
Does it mean that there are 2 variables where Dir has the location of the file and ExcelName has the file name?
If so try this:

Code:

Dir = "Complete path of your file\" ExcelName = "ExcelName.xls" DataTable.AddSheet("TestSheet") DataTable.ImportSheet Dir & ExcelName, "sheetName", "TestSheet"

This is working for me.

[galis]

Hi manishbhalshankar,
o.k
Thank you