以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]excel导出  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114661)
--  作者：wangnovel
--  发布时间：2018/2/12 15:59:00
--  [求助]excel导出
我希望实现这样一个功能：
1、系统某个表的数据能导入某个excel文件（假设该文件为A.xls）指定的位置;
2、A.xls文件格式来自Attachments文件中的excel模板；
3、A.xls文件的路径和文件名应该能由用户指定

请大神提供思路或代码，谢谢！
--  作者：有点甜
--  发布时间：2018/2/12 16:48:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2334.htm

 

http://www.foxtable.com/webhelp/scr/0328.htm

 
--  作者：wangnovel
--  发布时间：2018/2/13 0:34:00
--  
自己解决了：

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
       \'将Attachments中的模板文件"基础数据表.xls"复制到用户指定位置,并重命名为用户指定名称,如果该文件已经存在,则覆盖:
        FileSys.CopyFile(ProjectPath & "Attachments\\基础数据表.xls", dlg.FileName,True)
        Dim Book As New XLS.Book(dlg.FileName)
        \'下面开始操作Book
          ......