以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]将有密码的Access数据表导出到Excel  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118861)
--  作者：Artemis
--  发布时间：2018/5/12 12:17:00
--  [求助]将有密码的Access数据表导出到Excel
 专家，你好。请教一个问题：
目前有一个窗口，窗口里有一个表控件，绑定到了Access数据库相关表格，该Access数据库是有密码的。
遇到的问题：
我要将该窗口表格导出数据，可以成功导出mdb文件，但是不能导出Excel文件。

想解决的问题：
如果将Access数据库密码解除，就可以成功导出Excel文件。
但是我不想解除Access数据库的密码，请问用什么方法导出Excel格式的文件？

谢谢、
--  作者：有点蓝
--  发布时间：2018/5/12 14:51:00
--  
通过什么方式导出的？把数据库做为数据源加进来嘛
--  作者：Artemis
--  发布时间：2018/5/12 17:58:00
--  
 额，不好意思，忘说了，我已经是把数据库作为数据源加进来了。我是通过以下代码导出的：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "数据库表" \'指定导出表
ex.filepath = dlg.FileName  \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
End If
以上代码只要把Excel换成Access的mdb就可以成功导出，但是换成Excel就不能导出，没有任何提示。
--  作者：有点甜
--  发布时间：2018/5/13 11:00:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=117468&skin=0