以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于导出Excel问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109896)
--  作者：rophy0952
--  发布时间：2017/11/22 13:44:00
--  [求助]关于导出Excel问题
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "应收账款明细表"
    ex.Filter = Tables("应收账款新增_应收账款明细表").Filter 
图片点击可在新窗口打开查看此主题相关图片如下：tim截图20171122134216.png
图片点击可在新窗口打开查看
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Format = "Excel"
    ex.Export() \'开始导出
End If


上面的代码，之前导出excel正常，但现在在导出的时候提示上图错误，请问是何原因？未做过任何修改。
[此贴子已经被作者于2017/11/22 13:44:56编辑过]
--  作者：有点甜
--  发布时间：2017/11/22 14:33:00
--  

dlg.Filter = "Excel文件|*.xls" \'设置筛选器

 

可以改成

 

dlg.Filter = "Excel文件|*.xlsx" \'设置筛选器

 

或者是，升级到最新版foxtable http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108082&skin=0

 
--  作者：rophy0952
--  发布时间：2017/11/22 15:54:00
--  
谢谢有点甜！更 改了.xlsx，但是又提示另外个错误了。

图片点击可在新窗口打开查看此主题相关图片如下：tim截图20171122155253.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/11/22 16:23:00
--  
以下是引用rophy0952在2017/11/22 15:54:00的发言：
谢谢有点甜！更 改了.xlsx，但是又提示另外个错误了。

图片点击可在新窗口打开查看此主题相关图片如下：tim截图20171122155253.png

 

换一个路径呢？比如换到 d:\\ 或者 e:\\

--  作者：rophy0952
--  发布时间：2017/11/22 16:40:00
--  
存到F盘了，还是提示“数据库或对象为只读。”
--  作者：有点甜
--  发布时间：2017/11/22 17:04:00
--  

1、你项目里面，可以修改保存数据吗？

 

2、如果确实不行，就用saveexcel吧 http://www.foxtable.com/webhelp/scr/0559.htm