IErrorInfo.GetDescription failed with E_FAIL(0x80004005)
以下のコードを実行すると、 への呼び出しでエラーが発生することがありますexcelFile.WorksheetNoHeader(0)
。
Excelファイルに依存していないようです.1つのファイルは一度は読めて、次は読めません。
何が原因でしょうか?
Public Overrides Function GetImportDataAsDataTable() As DataTable
Dim dataTable = New DataTable
dataTable.BeginLoadData()
Try
Dim excelFile = New ExcelQueryFactory(FileFullPath)
For Each importDataRow In excelFile.WorksheetNoHeader(0)
If dataTable.Columns.Count = 0 Then
For i = 1 To importDataRow.Count
dataTable.Columns.Add(New DataColumn())
Next
End If
Dim dataRow = dataTable.NewRow
dataRow.ItemArray = importDataRow.ToArray
dataTable.Rows.Add(dataRow)
Next
Finally
dataTable.EndLoadData()
End Try
Return dataTable
End Function