Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables("客户台帐明细_table1").SaveExcel(dlg.FileName, "客户台帐明细") '保存文件
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
那和程序没有关系。手机打开这个Excel的app本身有问题吧
我是发到对方微信 对方打开日期变成这样的 其他系统导出后发到微信日期正常的 奇怪