一键导入多表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能否设计代码，点击一次按钮，将一个excel数据导入两个或多个表里呢？

老师，如果excel表格的第一行和第二行不导入，除了导入前删除外，能用代码实现吗？

老师，我看了您写的代码，帮助里是指定文件存放位置导入。我想把您的编码和随意选择文件夹结合起来，没试验成功，请指点一下好吗？

Dim Book As New XLS.Book("D:\问题\新建文件夹\采购.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("当月采购").StopRedraw()
'Dim nms() = {"供应商","单据类型","入库日期","单号","物料编码","货物名称","规格","单位","数量","单价","金额","付款情况"}
Dim a As Table = Tables("当月采购")
For i As Integer = 0 To a.Rows.count-1

For n As Integer = 1 To Sheet.Rows.Count -1

类似的代码，需要把固定位置D盘，改为自由选择文件夹

''-----------------------------------------代码导入数据-----------------------------------------

'Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

'dlg.Filter= "Excel文件|*.xls" '设置筛选器

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

'MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件

'End If

'-------------------------------------------------- -上下怎样结合起来呢?----------------

'Dim Book As New XLS.Book("c:\test\考勤记录.xls")

'Dim Sheet As XLS.Sheet = Book.Sheets(0)

'Tables("当月刷脸").StopRedraw()

''注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

'Dim nms() As String = {"员工号","姓名","所属部门","D1","D2","D3","D4","D5","D6","D7"

''注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

'For n As Integer = 1 To Sheet.Rows.Count -1

'Dim r As Row = Tables("当月刷脸").AddNew()

'For m As Integer = 0 To nms.Length - 1

'r(nms(m)) = Sheet(n,m).Value

'Next

'Tables("当月刷脸").ResumeRedraw()

''End If

主题：一键导入多表