【Access源码示例】导入系列-Excel之ADO记录集方法
时 间:2020-08-11 08:36:37
作 者:金宇 ID:43 城市:江阴
摘 要:使用ADO的记录集方法循环将Excel数据导入至Access。
正 文:
使用ADO的记录集方法循环将Excel数据导入至Access,具体代码如下:
Private Sub btnImport_Click() On Error GoTo ErrorHandler: Dim strSQL As String Dim rst As Object Dim cnn As Object Dim rstXL As Object If IsNull(Me.strFilePath) Then MsgBox "请先选择文件!", vbInformation, "提示" Me.strFilePath.SetFocus Exit Sub End If If IsNull(Me.strSheetName) Then MsgBox "请先选择Excel工作表!", vbInformation, "提示" Me.strSheetName.SetFocus Exit Sub End If '打开Access记录集 Set rst = CreateObject("adodb.recordset") rst.Open "select * from tb_Parts where 1=2", CurrentProject.Connection, 1, 3 '打开Excel记录集 Set cnn = CreateObject("adodb.connection") cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Me.strFilePath & ";Extended Properties='Excel 12.0;HDR=Yes';" Set rstXL = cnn.Execute("select * from [" & Me.strSheetName & "$]") Do While Not rstXL.EOF rst.AddNew rst![Part No] = rstXL![Part No] rst![Part Name] = rstXL![Part Name] rst![Category] = rstXL![Category] rst![Part Type] = rstXL![Part Type] rst![Unit Cost] = rstXL![Unit Cost] rst![Cons Cost] = rstXL![Cons Cost] rst.Update rstXL.MoveNext Loop rst.Close Set rst = Nothing rstXL.Close Set rstXL = Nothing MsgBox "Import Success!" DoCmd.OpenTable "tb_Parts" Exithere: DoCmd.Hourglass False Exit Sub ErrorHandler: MsgBox Err.Description, vbInformation, "提示" Resume Exithere End Sub
附 件:
图 示:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)