[求助]Excel表导入时，可否设定为第一张工作表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Excel表导入时，可否设定为第一张工作表

共有3453人关注过本帖树形打印复制链接主题：[求助]Excel表导入时，可否设定为第一张工作表

dzy1232016

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

[求助]Excel表导入时，可否设定为第一张工作表 发帖心情

Post By：2019/9/25 20:03:00 [显示全部帖子]

[求助]Excel表导入时，可否设定为第一张工作表，而不别知道工作表名字就可以导入？

dzy1232016

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/9/25 20:10:00 [显示全部帖子]

或者是读取工作表

dzy1232016

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/9/26 10:54:00 [显示全部帖子]

Unable to read beyond the end of the stream.出现这个代码是什么原因

dzy1232016

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/9/26 11:29:00 [显示全部帖子]

Dim xwj As new OpenFileDialog

xwj.Filter="Excel文件(*.xls)|*.xls"

If xwj.ShowDialog=DialogResult.Ok Then

Dim zy As new Merger

DataTables("比例计算").DeleteFor("")

zy.SourcePath=xwj.FileName

Dim Book As New XLS.Book(xwj.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

messagebox.show(Sheet.name)

zy.SourceTableName=Sheet.name+"$"

zy.Fields="数量,采购价,通用名,基药类别,采购类别,招标单元信息,配送企业"

zy.DataTableName="比例计算"

zy.Format="Excel"

zy.Merge()

End If

dzy1232016

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/9/26 12:13:00 [显示全部帖子]

Dim xwj As new OpenFileDialog
xwj.Filter="Excel文件(*.xls)|*.xls"
If xwj.ShowDialog=DialogResult.Ok Then
    DataTables("比例计算").DeleteFor("")
    Dim Book As New XLS.Book(xwj.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("比例计算").StopRedraw()
    Dim nms() As String = {"数量","采购价","通用名","基药类别","采购类别","招标单元信息","配送企业"}
    For n As Integer = 1 To Sheet.Rows.Count -1
         Dim r As Row = Tables("比例计算").AddNew()
         For m As Integer = 0 To nms.Length - 1
               r(nms(m)) = Sheet(n,m).Value
         Next
   Next
Tables("比例计算").ResumeRedraw()
  End If

改成这样还是这个错误