主题：导出数据如何把表作为一个sheet插入现有xls文件而不覆盖文件

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
'Dim flg As New SaveExcelFlags
'flg.MergedRanges = False
If FileSys.FileExists(dlg.FileName) Then
filesys.DeleteFile(dlg.FileName,2,2)
End If
CurrentTable.SaveExcel(dlg.FileName,DataTables(CurrentTable.Name).Caption) '保存文件 ,flg
Dim proc As new Process
proc.File = dlg.FileName
proc.Start()
End If