请问如何读取打开并实时更新的excel工作表?
我现在的代码读取未打开的excel文件没有问题,但是打开已打开的excel文件就会跳出如下错误:“提供程序无法确定 String 值。例如,该行刚刚创建,未提供 String 列的默认值,并且使用者尚未设置新 String 值。”
这是代码:
Function ReadExcel(ByVal FileName As String, ByVal SheetName As String)
Dim s$ = ("Provider=Microsoft.ACE.OLEDB.12.0;" & "data source=") & FileName & ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"
Dim ss$ = String.Format("SELECT * FROM [{0}$]", SheetName)
Dim OleDbConnection As New OleDb.OleDbConnection(s)
OleDbConnection.Open()
Dim OleDbDataAdapter As New OleDb.OleDbDataAdapter(ss, OleDbConnection)
Dim DataTable = New DataTable
OleDbDataAdapter.Fill(DataTable)
OleDbDataAdapter.Dispose()
OleDbConnection.Close()
Return DataTable
End Function
跳错的是这一句:
OleDbDataAdapter.Fill(DataTable)
[此贴子已经被作者于2019-9-2 16:00编辑过]