以文本方式查看主题 - 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=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 ......
|