主题：各位大佬，求助啊！

此主题相关图片如下：二.png

此主题相关图片如下：一.png

此主题相关图片如下：excel报表.jpg

 

大神，上图是用狐表的EXCEL报表做的一个模板，我想让“认购时间=#2019-11-27#”这里自动呈现当日时间！现在的方法是手动改的！
还有要统计的当周（非自然周）、当月（非自然月）的我想做成可选性的！


这个有什么好的方法去实现啊！

此主题相关图片如下：大神，谢谢.jpg



大神！这种的怎么办啊？周的和月的   而且有时候还不是自然周自然月！

谢谢啦！大神

老师，我这个代码有什么问题啊！为啥不会计算。
此主题相关图片如下：9ae7ec97a54e35c8f1b0ee0c23ab1b5.png

Dim book As new XLS.Book(ProjectPath & "Attachments\哈哈哈.xlsx") Dim fl As String = ProjectPath & "Reports\哈哈哈.xlsx" Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim y As Integer = Date.Today.Year Dim dt1 As New Date(y, 1, 1) Dim dt2 As New Date(y, 12, 31) Dim Filter As String Filter = "认购日期2 >= #" & dt1 & "# And 认购日期2 <= #" & dt2 & "#" Dim y1 As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt3 As New Date(y1, m, 1) Dim dt4 As New Date(y1, m, Date.DaysInMonth(y1, m)) '获取本月的最后一天 Dim Filter1 As String Filter1 = "认购日期2 >= #" & dt3 & "# And 认购日期2 <= #" & dt4 & "#" Sheet(4,4).Value = "[$新成交明细,Sum(成交总价2),Filte]" Sheet(4,3).Value = "[$新成交明细,Sum(成交总价2),Filte1]" Book.Build() '生成报表 Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start()

万分感谢

"[原创]使用OpenXml导入导出Excel2007格式的文件，支持100W行上百M的大文件"
大神，我是小白，您搞的这个怎么玩，能否搞个实例看看啊！万分感谢！