以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]模板中的日期条件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49075)
--  作者：ZHX241806
--  发布时间：2014/4/11 19:11:00
--  [求助]模板中的日期条件

<[日期]=#4/11/2014#>,这是EXCEL模板中的日期条件，指的是今天的日期单子，我想把这个条件不需要每次都要更改，而自动设置成今天的的日期，（只要打印时就打印今天的单子），请问高手们，这个条件如何写，谢谢！
--  作者：有点甜
--  发布时间：2014/4/11 19:30:00
--  

方法一：

http://www.foxtable.com/help/topics/2626.htm

 

 

方法二：<"[日期]=#" & Date & "#"> 此方法可以无效
--  作者：ZHX241806
--  发布时间：2014/4/11 19:51:00
--  

两种方法我刚才都试过，没有成功，麻烦狐神有没有再好的条件代码，谢谢！
--  作者：有点甜
--  发布时间：2014/4/11 19:53:00
--  
以下是引用ZHX241806在2014-4-11 19:51:00的发言：

两种方法我刚才都试过，没有成功，麻烦狐神有没有再好的条件代码，谢谢！

 

方法一是绝对能成功的。你要计算好excel表格的位置，这个很关键。
--  作者：ZHX241806
--  发布时间：2014/4/11 20:26:00
--  

能不能写一个方法一的今天的条件看一看，也许我写的方式不对，谢谢！
--  作者：有点甜
--  发布时间：2014/4/11 20:30:00
--  
以下是引用ZHX241806在2014-4-11 20:26: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)
Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>"  \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 

http://www.foxtable.com/help/topics/2626.htm

 
--  作者：ZHX241806
--  发布时间：2014/4/11 21:22:00
--  
谢谢！我在试试。