主题：我用循环语句打印数据库里的记录，在excel表里始终是和第一条记

For Each dr As Row In Tables("一户一清单").Rows

    p.value=p.value+1

    

    Vars("cz")= dr("乡")  & "乡(镇)街道" & dr("村") & "行政村" &  dr("组")

    Dim Book As New XLS.Book(ProjectPath & "Attachments\一户一清单.xls")

    Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

    Dim fl As String = ProjectPath & "Reports\一户一清单.xls"

    Book.Build() '生成细节区

    book.Save(fl)

    Dim App As New MSExcel.Application

    app.quit

    Dim Copyfl As String = "D:\一户一清单\" & dr("乡")  & "乡(镇)及街道" & dr("村") & "行政村" &  dr("组")  & dr("姓名") & ".xls"

    FileSys.CopyFile(fl, copyfl, True)

Next