现在的情况是这样的，每天有三张表的数据要导入到系统里，然后第二天将昨天导入的数据清除，然后重新将新数据导入进去。每张表格数据大概7000行。现在用的是阿里云的服务器，导入一张表格耗时10分钟，每天光等就要等半小时。。。
用的源码是这个：
Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
DataTables("当前库存").DataRows.Clear
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = "数据段1$" '指定要合并的表
mg.DataTableName = "当前库存" '指定接收数据的表
mg.Merge() '开始合并
End If
表格“当前库存”为外部数据表。
老师有别的更好的方式吗？
加好友 
发短信
Post By：2017/7/21 20:59:00 [只看该作者]
