- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导出为excel文件时出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44261)
-- 发布时间：2013/12/26 16:26:00
-- 导出为excel文件时出错
在正常导出excel文件时出这个错，请教是什么意思？谢谢
此主题相关图片如下：360截图20131226162349470.jpg
-- 发布时间：2013/12/26 16:33:00
--
文件例子发上来看看
-- 发布时间：2013/12/26 18:05:00
--
文件打开了吧。
-- 发布时间：2013/12/26 21:27:00
--
没有，就是用系统默认的另存为的命令，很奇怪。就是菜单上一个导出按钮的代码
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
-- 发布时间：2013/12/26 21:33:00
--
有木有例子，没理由的哦。肯定存在同名的文件，而且在内存里独占打开了吧？
-- 发布时间：2013/12/26 21:52:00
--
谢谢，因为是SQL的远程数据库另外做的例子又没有问题，出错后再进入菜单后改用后面那种方式就可以，反复试过好几次了，只要知道那个提示是什么就行。现在用后面那种方式没问题就先这样了。