Foxtable(狐表)用户栏目专家坐堂 → [求助]XLS模板引用问题


  共有4682人关注过本帖树形打印复制链接

主题:[求助]XLS模板引用问题

帅哥哟,离线,有人找我吗?
弘安公司
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
[求助]XLS模板引用问题  发帖心情 Post By:2014/2/12 16:44:00 [只看该作者]

代码: 

Dim  Book As New XLS.Book(ProjectPath & "Attachments\模板.xls")  '打开模板

Dim fl As  String =  ProjectPath &  "f:\报告1.xls"

Dim Sheet As XLS.Sheet = Book.Sheets(6)

Sheet(0,0).Value = "<塔式起重机监检>"  '细节区定义一

Sheet(213,0).Value = "<塔式起重机监检>"  '细节区定义二

Book.Build() '生成报表

Book.Save(fl)

 Dim Proc As New Process

 Proc.File = fl

 Proc.Start()

 

在“命令窗口”运行系统报错   多谢多谢!


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/12 16:45:00 [只看该作者]

报什么错?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/12 16:46:00 [只看该作者]

这类问题,有例子才好办.

 回到顶部
帅哥哟,离线,有人找我吗?
弘安公司
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2014/2/12 16:50:00 [只看该作者]

截图已上传

 


 回到顶部
帅哥哟,离线,有人找我吗?
弘安公司
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2014/2/12 16:52:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140212164624.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
弘安公司
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2014/2/12 17:02:00 [只看该作者]

本意是 将“塔式起重机监检”table引用模板生成报表

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/12 17:21:00 [只看该作者]

截图并不能帮上忙,需要文件例子和模板才可以.

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/12 17:21:00 [只看该作者]

根据你的截图提示,似乎是你路径下没有对应的文件哦.

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/12 17:24:00 [只看该作者]

是的,就是模版文件不存在,出问题的代码是这样

 

Dim  Book As New XLS.Book(ProjectPath & "Attachments\模板.xls")  '打开模板

 

你可以在命令窗口执行下面的代码判断:

 

If filesys.FileExists(ProjectPath & "Attachments\模板.xls") Then
   messagebox.show("存在")
Else
   messagebox.show("不存在")
End If

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
弘安公司
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2014/2/12 17:57:00 [只看该作者]

先谢了  我试了以上代码  是不存在 疑问是:我已复制了模板到文件夹了呀 见截图


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140212175503.png
图片点击可在新窗口打开查看

 回到顶部
总数 15 1 2 下一页