Dim st As Date = Date.Now()
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件(*.xlsx)|*.xlsx|Excel文件(*.csv)|*.csv|Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*" '设置筛选器
Dim dtb As new DataTableBuilder("表名称")
dtb.AddDef("表名称",Gettype(String),200)
dtb.Build()
MainTable= Tables("表名称")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Wb As new XLS.Book(dlg.FileName)
For Each Ws As XLS.Sheet In Wb.Sheets
Dim nws As String = Ws.name.split("(")(0)
Dim dr As DataRow = DataTables("表名称").AddNew()
dr("表名称") = nws
Next
End If
popmessage("耗时:" & (Date.Now - st).TotalSeconds & "秒",,,5)
大佬，我这代码总是报内存溢出，求解
加好友 
发短信
Post By：2022/4/30 22:39:00 [显示全部帖子]
