专家坐堂-索引超出范围。必须为非负值并小于集合大小Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As Table = Tables("中考报名_table3")

Dim dt1 As Table = Tables("中考报名_table4")

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog

dlg.Filter= "Excl|*.xls" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim Book As New XLS.Book \'定义一个Excel工作簿

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

Dim sheet1 As XLS.Sheet = Book.Sheets(1)

For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题

If dt.Cols(c).Visible Then

Sheet(0, c).Value = dt.Cols(c).Name

End If

For m As Integer = 1 To dt.Rows.Count -1

For n As Integer = 0 To dt.Cols.count -1

If dt.Cols(n).Visible Then

sheet(m,n).value =dt.Rows(m)(dt.Cols(n).name)

End If

For c1 As Integer = 0 To dt1.Cols.Count -1 \'添加列标题

If dt1.Cols(c1).Visible Then

Sheet1(0, c1).Value = dt1.Cols(c1).Name

End If

For m1 As Integer = 1 To dt1.Rows.Count -1

For n1 As Integer = 0 To dt1.Cols.count -1

If dt1.Cols(n1).Visible Then

sheet1(m1,n1).value =dt1.Rows(m1)(dt1.Cols(n1).name)

End If

Book.Save(dlg.FileName )

Dim Proc As New Process

Proc.File = dlg.filename

Proc.Start()

End If