调用
MainTable=Tables("销售")
Dim ccbCols As String="货号,品名,封装,厂商,数量,单价,金额,仓库,区域,电话,供应商QQ,公司名称,备注,查价员,修改时间,库存下限,最近出货时间,倍数"
Functions.Execute("导出到excel",1,ccbCols.Split(","))
函数
Dim state As Integer = Args(0)
Dim cols() As String = Args(1)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel2007文件|*.xlsx" '设置筛选器
dlg.FileName = CurrentTable.Name
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim d1 As Date = Date.Now
Dim _execl As New ExOpenXml.ExOXExecl()
_execl.Open(dlg.FileName)
If state = 0 Then '直接导,内容占用大,速度快
_execl.ToExecl(CurrentTable.DataTable.Basetable,,False,cols) '第三个参数为false,为覆盖导出
Else '按流的方式导出,内存占用小,速度稍慢
_execl.WriteToExecl(CurrentTable.DataTable.Basetable,,False,cols) '第三个参数为false,为覆盖导出
End If
_execl.Dispose()
End If
报错
此主题相关图片如下：aa.png
[此贴子已经被作者于2021/11/17 0:22:45编辑过]
加好友 
发短信
Post By：2021/11/17 0:22:00 [显示全部帖子]
