| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2096 人关注过本帖
标题:请问如何读取打开并实时更新的excel工作表?
只看楼主 加入收藏
incana
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-9-2
收藏
 问题点数:0 回复次数:0 
请问如何读取打开并实时更新的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编辑过]

搜索更多相关主题的帖子: excel String DataTable Dim 打开 
2019-09-02 15:59
快速回复:请问如何读取打开并实时更新的excel工作表?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016513 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved