Dim dlg As New OpenFileDialog
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
DataTables("表A").StopRedraw
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
For n As Integer = 2 To rg.Rows.Count
Dim ro As Row = Tables("表A").AddNew
For i As Integer = 0 To Tables("表A").Cols.Count - 1
If cs(i) = "UPDATE" Then ‘如果是日期列
Dim dt As DateTime = DateTime.FromOADate( ary(n,i+1)) '把Double值转换为日期
ro(cs(i)) = dt
Else
ro(cs(i))= ary(n,i+1)
End If
Next
Next
MessageBox.Show("导入成功!","恭喜!")
catch ex As exception
msgbox(ex.message)
MessageBox.Show("导入失败!","恭喜!")
finally
DataTables("表A").ResumeRedraw
app.quit
End try
Else
Return
End If
End If
加好友 
发短信
Post By：2019/10/22 9:53:00 [显示全部帖子]
