专家坐堂-[求助]关于合并表的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于合并表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158120)

--  作者：klkingkkk
--  发布时间：2020/11/9 10:49:00
--  [求助]关于合并表的问题
用代码来合并一张7千多行的数据表大根需要7,8秒的时间.但是通过杂项里面的高速合并按钮来合并的话速度可能就是1秒的样子
现在我想怎么通过代码来实现高速合并表这一动作呢? 我现在写的代码入下
Dim dlg As New OpenFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

\'导入前先删除所有行
DataTables("顺丰账务总表").DeleteFor("")

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

导入数据
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" \'指定格式
mg.SourceTableName = ws.Name & "$" \'指定要合并的表
mg.DataTableName = "顺丰账务总表" \'指定接收数据的表
mg.Merge()
App.Quit
End If

[此贴子已经被作者于2020/11/9 11:02:29编辑过]

--  作者：有点蓝
--  发布时间：2020/11/9 10:54:00
--
请把代码直接发上来，不要加行号

--  作者：klkingkkk
--  发布时间：2020/11/10 9:36:00
--
代码已发上来了.麻烦
看一下,谢谢!!

--  作者：有点蓝
--  发布时间：2020/11/10 10:15:00
--

Dim dlg As New OpenFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
Dim d As Date = Date.Now
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\'导入前先删除所有行
DataTables("顺丰账务总表").DeleteFor("")
Output.Show("删除:" & (Date.Now - d).TotalSeconds)
d = Date.Now

Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Output.Show("打开文件:" & (Date.Now - d).TotalSeconds)
d = Date.Now
导入数据
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" \'指定格式
mg.SourceTableName = Sheet.Name & "$" \'指定要合并的表
mg.DataTableName = "顺丰账务总表" \'指定接收数据的表
mg.Merge()
Output.Show("导入:" & (Date.Now - d).TotalSeconds)
End If