Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
ss = dlg.FileName
If FileSys.FileExists("& ss &") = True Then
FileSys.DeleteFile("& ss &",2,2) '则彻底删
End If
Dim ex As New Exporter
ex.SourceTableName = "在制品查询_Table1" '指定导出表
ex.FilePath = ss '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export()
End If
狐表导出能不能保存多层表头和合并模式
我用这段代码保存以后，没有合并模式和多层表
变成这个样子
此主题相关图片如下：多层表头没有了.png
如果要保存之前的多层表头和合并模式，代码如何写，能不能给个示列，导出为execl
加好友 
发短信
Post By：2020/5/13 17:12:00 [只看该作者]
