- 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=111094)
-- 发布时间：2017/12/14 22:39:00
-- excel报表只导出指定工程项目的相关报表
excel报表只导出指定工程项目的相关报表，或者只导出鼠标选中的工程项目相关报表，好不好做，是采用设置代码？还是弹出窗口？
-- 发布时间：2017/12/14 23:27:00
--
动态设置条件
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=111000&skin=0
-- 发布时间：2017/12/24 10:01:00
--
EXCEL表名：跟踪核算，工作表：费用进度分析，项目名称希望和工程项目表鼠标选择位置一致，红色部分代码怎么写？
工作表写在蓝色位置是否合适？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\跟踪核算.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\跟踪核算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
费用进度分析(2,5).Value = "<项目名称= # " & Date.Today & "#>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File
= fl
Proc.Start()
-- 发布时间：2017/12/24 14:49:00
--
改成这样
sheet(2,5).Value = "<项目名称= \'" & Tables("费用进度分析").Current("项目名称") & "\'>" \'写入打印条件
-- 发布时间：2017/12/25 16:50:00
--
我在管理窗口设置一个按钮，这样写可能有冲突：
\'指定鼠标所在位置的项目名称为唯一值
Dim Book As
New XLS.Book(ProjectPath & "Attachments\\跟踪核算.xls")
\'打开模板
Dim fl As String = ProjectPath
& "Reports\\跟踪核算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(2,5).Value = "<项目名称= \'"
& Tables("费用进度分析").Current("项目名称")
& "\'>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
\'查看生成结果
Dim Book As New XLS.Book(ProjectPath & "Attachments\\跟踪核算.xls")
Dim fl As String = ProjectPath
& "Reports\\跟踪核算.xls"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
弹出错误提示：
此主题相关图片如下：1514190057(1).png
当我注释掉“查看生产结果”弹出：此主题相关图片如下：1514190140(1).png
请老师帮我看下！
-- 发布时间：2017/12/25 17:28:00
--
直接写这段，保留一段即可
\'指定鼠标所在位置的项目名称为唯一值
Dim Book As New XLS.Book(ProjectPath & "Attachments\\跟踪核算.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\跟踪核算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(2,5).Value = "<项目名称= \'" & Tables("费用进度分析").Current("项目名称") & "\'>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
-- 发布时间：2017/12/26 3:11:00
--
不存在“费用进度分析”，明明有呀
此主题相关图片如下：1514190140(1).png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跟踪核算.xls |
-- 发布时间：2017/12/26 9:10:00
--
1、你表名肯定写错，这个提示是这句代码 Tables("费用进度分析")
如果是窗口表、副本表，请改成副本表的名字。
2、红色代码写错，请改成正确的。
Dim Book As New XLS.Book(ProjectPath & "Attachments\\跟踪核算.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\跟踪核算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets("费用进度分析")
sheet(1,5).Value = "<项目名称= \'" & Tables("费用进度分析").Current("项目名称") & "\'>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
-- 发布时间：2017/12/26 9:45:00
--
改成这样是可以的：
-- 发布时间：2017/12/26 9:48:00
--
比如