【Access源码示例】导入系列-Excel之循环读取单元格数据方法
时 间:2020-08-25 09:25:21
作 者:金宇 ID:43 城市:江阴
摘 要:通过循环读取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 Dim objExcel As Object Dim objBook As Object Dim objSheet As Object Dim lngI As Long 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 objExcel = CreateObject("Excel.Application") Set objBook = objExcel.Workbooks.Open(Me.strFilePath) Set objSheet = objBook.WorkSheets("" & Me.strSheetName & "") objSheet.Select With objSheet For lngI = 2 To 65536 '循环行记录 If .Cells(lngI, 1) = "" Then Exit For rst.AddNew rst![Part No] = .Cells(lngI, 1) rst![Part Name] = .Cells(lngI, 2) rst![Category] = .Cells(lngI, 3) rst![Part Type] = .Cells(lngI, 4) rst![Unit Cost] = .Cells(lngI, 5) rst![Cons Cost] = .Cells(lngI, 6) rst.Update Next End With rst.Close MsgBox "Import Success!" DoCmd.OpenTable "tb_Parts" Exithere: DoCmd.Hourglass False If Not objBook Is Nothing Then objBook.Saved = True If Not objExcel Is Nothing Then objExcel.Quit Set objSheet = Nothing Set objBook = Nothing Set objExcel = Nothing Set rst = Nothing 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表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)