没有，就是用系统默认的另存为的命令，很奇怪。就是菜单上一个导出按钮的代码Syscmd.Project.ExportToExcel() '提示错误
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables(CurrentTable.name).SaveExcel(dlg.FileName,CurrentTable.name) '用这行也提示错误
End If
下面的代码就可以：
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
CurrentTable.SaveExcel(dlg.FileName,CurrentTable.name)
End If
加好友 
发短信
Post By：2013/12/26 16:26:00 [显示全部帖子]
此主题相关图片如下：360截图20131226162349470.jpg