Dim t As Table = Tables("窗口1_Table1")
dim aa As String = t.Name
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xlsx" '设置筛选器
dlg.InitialDirectory = ProjectPath & "导出文件\"
dlg.FileName = Date.Today & aa & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
flg.MergedRanges = True
t.SaveExcel(dlg.FileName, aa , flg)
End If
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
使用表导出，七万多条就会闪退，无法导出,有好办法可以一次导出大量数据吗?我搜索过也没有SQL语句可以,请问老师有方法吗?现在是可以查询出这么多条数据,但无法一次导出
加好友 
发短信
Post By：2022/9/7 23:09:00 [显示全部帖子]
