两张关联表打印一套Excel报表。每条父表数据生成一个Excel表，其中子表数据需要进行筛选。用代码生成。
结果出现子表的数据没有筛选过。但使用键盘鼠标换行打印Excel报表生成的Excel文件是筛选过的。正确代码是怎么写的？
Dim Filter As String
Filter = "JYSJ >= #" & dt1 & "# And JYSJ <= #" & dt2 & "#"
MainTable = Tables("CLXX")
Tables("CLXX.JYJL").Filter = Filter
Dim sheet1 As XLS.Sheet
Dim f1,f2 As String
f1=ProjectPath & "\temp.xls"
f2=SpecialFolder.DesktopDirectory & "\单车加油-" & Jysxn & Jysxy & ".xls"
Dim Book2 As New XLS.Book
For i As Integer = 0 To CurrentTable.Rows.Count -1
CurrentTable.Position = i
System.Threading.Thread.Sleep(1000)
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\单车加油模板.xls")
Book1.Build() '生成细节区
Sheet1 = Book1.Sheets("muban")
sheet1.Name = CurrentTable.Current("CH")
System.Threading.Thread.Sleep(1000)
Book1.Save(f1) '保存工作簿
Book1.Sheets.Remove(Sheet1)
Book2.Sheets.Add(Sheet1)
System.Threading.Thread.Sleep(500)
Next
正确的写法是什么？
不给个暂停时间，360杀毒软件认为狐表是勒索病毒
加好友 
发短信
Post By：2020/12/10 17:00:00 [只看该作者]
