主题：[求助]

老师  如下代码  这个项目发布后模板应该怎么处理？

我们发布后publish文件夹里有这个模板   但是具体到每台电脑安装路径也不相同  请问老师应该如何解决

 

Dim Book As New  XLS.Book("D:\新料导入系统\新料导入系统\Attachments\陶瓷电容模板.xls")
 Dim fl As  String ="D:\新料导入系统\新料导入系统\Reports\新料.xls"
 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()

老师  这个好了  我想再请教下  这个模板是把表里的文件全都导出来了  怎样才能做到有选择性的导出  例如以时间（表中有一列已设置为填表时间）或者选定行导出

生成之前，先把table筛选一下，再导出就行了。

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(1,247).Value = "<jiean = # False #>"  '写入打印条件
 Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As  New  Process  '打开工作簿
Proc.File = fl
 Proc.Start()

 

老师  上述代码没有按照预想的执行 还是全部都打印了

方法一：把表筛选一下啊

 

Tables("表A").Filter = "jiean = false"

 

方法二： 位置一定要写对。

 

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(1,247).Value = "<jiean = False>"  '写入打印条件
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As  New  Process  '打开工作簿
Proc.File = fl
Proc.Start()

 

位置是对的  这个jiean列（是一个逻辑列）并不是要打印出来的  会不会有问题？  打印条件如果是两个条件并列的 应该怎样写

6楼的代码没问题

 

多条件，就用 and 连接，如 条件1=true and 条件2=12345

上述条件2=12345   条件2您的意思是文本的吗？  不用写成“12345”是吗？

 

结合上述的例子我写了，但是没有出来结果，我们的条件2就是一个文本的条件。

 

 

 

 Tables("表A").Filter = "jiean = false and 第二列 = '123456'"