首先不是特别情况不要使用CurrentTable这种用法,最好是指定表。
Dim Filter As String
Filter = "JYSJ >= #" & dt1 & "# And JYSJ <= #" & dt2 & "#"
MainTable = Tables("CLXX")
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 Tables("CLXX").Rows.Count -1
Tables("CLXX").Position = i
Tables("CLXX.JYJL").Filter = Filter
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\单车加油模板.xls")
Book1.Build() '生成细节区
Sheet1 = Book1.Sheets("muban")
sheet1.Name = Tables("CLXX").Current("CH")
Book1.Save(f1) '保存工作簿
Book1.Sheets.Remove(Sheet1)
Book2.Sheets.Add(Sheet1)
Next