Tables("展会信息.原始名单").Focus MessageBox.Show("请核对Excel文件列名是否与'原始名单'工作表列名完全一致!","提示", MessageBoxButtons.Ok, MessageBoxIcon.Information) Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim Book As New XLS.Book(dlg.FileName) Dim Sheet As XLS.Sheet = Book.Sheets(0) Tables("展会信息.原始名单").StopRedraw() '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题 For n As Integer = 1 To Sheet.Rows.Count -1 Dim r As Row = Tables("展会信息.原始名单").AddNew() For nb As Integer = 0 To sheet.Cols.Count -1 If Tables("展会信息.原始名单").Cols.Contains(sheet(0,nb).Value) Then r(sheet(0,nb).Value) = Sheet(n,nb).Value End If Next Next Tables("展会信息.原始名单").ResumeRedraw() End If
|