用ADODB方式导入EXCEL

本文主要是介绍用ADODB方式导入EXCEL，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

一段VB的代码:
'导入Excel Private Sub cmdInputExcel_Click() Dim n As Long Dim oConn As New ADODB.Connection Dim oRS As New ADODB.Recordset Dim ss As String Dim path As String CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly '设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" '指定缺省的过滤器 CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen '取得文件路径 path = CommonDialog1.filename '打开Excel oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=Excel 8.0;" oRS.Open "Select * from [LOT明细$]", oConn, adOpenStatic n = 1 readLotnos = "" '循环存入LOTNO Do Until oRS.EOF ss = Trim(oRS.Fields(2)) & "" readLotnos = readLotnos & ",'" & ss & "'" n = n + 1 oRS.MoveNext Loop '显示数据 Call ShowList MsgBox "读取成功！" oRS.Close oConn.Close Exit Sub '按取消按钮 ErrHandler: End Sub

这篇关于用ADODB方式导入EXCEL的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---