magari è la stessa cosa non ho guardato il link
io ho una cosa che fa più o meno così, carica il file da un fileupload e lo legge.... vedi se riesci a usarla per quel che ti serve
codice:
Dim allowdFile As String() = {".xls", ".xlsx"}
Dim FileExt As String = System.IO.Path.GetExtension(FileUpload1.PostedFile.FileName)
Dim isValidFile As Boolean = allowdFile.Contains(FileExt)
If isValidFile Then
Dim FileSize As Integer = FileUpload1.PostedFile.ContentLength
If (FileSize <= 1048576) Then '// 1048576 Byte = 1 MB
filename = Path.GetFileName(Server.MapPath(FileUpload1.FileName))
Dim pathsave As String = "~/" & ConfigurationManager.AppSettings("uplpath")
FileUpload1.SaveAs(FilePath + filename)
hfXLS.Value = FilePath
Dim con As OleDbConnection
If (FileExt = ".xls") Then
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FilePath + filename + ";Extended Properties=Excel 8.0;")
ElseIf (FileExt = ".xlsx") Then
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + FilePath + filename + ";Extended Properties=Excel 12.0;")
End If
con.Open()
'lista dei fogli presenti nel file
Dim restr() As Object
Dim dt As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, restr)
'punto il primo foglio
Dim getExcelSheetName As String = dt.Rows(0) !Table_Name.ToString()
'Seleziono righe e inserisco in dataset
Dim ExcelCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [" & getExcelSheetName & "]", con)
Dim ExcelAdapter As OleDbDataAdapter = New OleDbDataAdapter(ExcelCommand)
Dim ExcelDataSet As DataSet = New DataSet()
ExcelAdapter.Fill(ExcelDataSet)
con.Close()
Dim dx As DataTable = ExcelDataSet.Tables(0)
...
eccetera eccetera