如果把导出的数据表备份一份到服务器上?
Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xlsx" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim ex1 As New Exporter ex1.SourceTableName = "装机工单清单表" '指定导出表 ex1.NewTableName = "装机工单清单表" 把导出来的这个数据表存一份在服务器上做为备份 ex1.FilePath = dlg.FileName ex1.Format = "Excel2007" '导出格式为Excel ex1.Export() '开始导出 MessageBox.show("完成【装机工单清单表】数据导出工作!!!", "非常关键提醒") End If