Блог

Я использую следующий код и пытаюсь понять, как получить доступ к содержимому каждой ячейки в документе Excel, чтобы проверить его… но все, что я нашел в Интернете, написано на C #, я попытался перевести это, но я получаю некоторые ошибки.. это мой код:

 Using stream = File.Open(FullUpldPath, FileMode.Open, FileAccess.Read)
    Using reader As IExcelDataReader = ExcelReaderFactory.CreateReader(stream)
       Dim result As DataSet = reader.AsDataSet(New ExcelDataSetConfiguration() With {
                                                                 .ConfigureDataTable = Function(__) New 
                                                                  ExcelDataTableConfiguration() With {
                                                                 .UseHeaderRow = True}})
       Dim tables As DataTableCollection = result.Tables            
    End Using
End Using
       
 

  Dim file__1 as String = "excelpath" 

 If file__1.EndsWith(".xlsx") Then
                    ' Reading from a binary Excel file (format; *.xlsx)  
                    Dim stream As FileStream = File.Open(file__1, FileMode.Open, FileAccess.Read)
                    excelReader = ExcelReaderFactory.CreateOpenXmlReader(stream)
                    excelReader.IsFirstRowAsColumnNames = True
                    dtExcelData = excelReader.AsDataSet()
                    excelReader.Close()
                    Return dtExcelData
                End If
    
If file__1.EndsWith(".xls") Then
                    ' Reading from a binary Excel file ('97-2003 format; *.xls)  
                    Dim stream As FileStream = File.Open(file__1, FileMode.Open, FileAccess.Read)
                    excelReader = ExcelReaderFactory.CreateBinaryReader(stream)
                    dtExcelData = excelReader.AsDataSet()
                    excelReader.Close()
                    Return dtExcelData
    
                End If