Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
For Each file As String In dlg.FileNames
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("cw_yhlsb").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"交易日期","交易网点","对方账号","收入","支出","账户余额","摘要"}
'注意下面的循环变量从2开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("cw_yhlsb").Find("交易日期 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("cw_yhlsb").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("cw_yhlsb").ResumeRedraw()
Next
End If
代码可用，但是导入的数据不全
以 "交易日期","交易网点","对方账号","收入","支出","账户余额","摘要" 为导入，导入的数据与表格式相同
加好友 
发短信
Post By：2017/9/19 16:03:00 [只看该作者]
