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
加好友 
发短信
Post By：2020/11/9 10:54:00 [显示全部帖子]
