Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "数据库文件|*.dbf;*.xls;*.xlsx|全部|*.*"
If dlg.ShowDialog = DialogResult.OK Then
systemready = False
For Each fl As String In dlg.FileNames
If fl.ToLower.EndsWith(".xls") Then
Dim Book As New xls.Book(fl)
Dim wjm As String = FileSys.GetName(fl)
Dim s As String
s=wjm.Replace(".xls","")
For Each Sheet As xls.Sheet In Book.Sheets '引用新增加的工作表
Dim mg As New Merger
mg.SourcePath = fl '指定数据文件所在目录
mg.Format = "excel" '指定格式
mg.SourceTableName = sheet.Name & "$"
mg.DataTableName = "测试表1" '指定接收数据的表
mg.Merge() '开始合并
Vars("name")=s
MessageBox.show(dlg.FileName)
Next
End If
Next
DataTables("测试表1").DeleteFor("全部费用明细 is null")
systemready = True
End If
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
btn2.PerformClick
加好友 
发短信
Post By：2020/6/13 12:00:00 [只看该作者]
