VBA将一个二维数组变量的内容直接导入ACCESS

三种VBA:

方法一：在eccel VBA编辑器编写代码，使用FOR循环导入：

Sub 利用Excel的VBA将数据写入Access()

'定义ADODB 连接Access数据库

Dim Cnn As New ADODBConnection

Dim Rs As New ADODBRecordset

Dim strCon As String

Dim strFileName As String '数据库文件名

strFileName = InputBox("请输入文件路径及文件名：", "Excel传递数据至Access", "E:\ExcelTest\Staffmdb")

'连接字符串，我这里是Access2010,所提供者参数为：Provider=MicrosoftACEOLEDB120;

'如果此参数不能使用，根据自己的电脑修改这个字符串

'至于连接至的数据库名，根据自己的电脑修改，或用一个对话框或其他方式将此值传递进程序

strCon = "provider=MicrosoftjetOLEDB40;" _

& "Data Source=" & strFileName & ";"

CnnOpen strCon

RsActiveConnection = Cnn

RsLockType = adLockOptimistic

RsOpen "Employee" '假设表为Employee

'定义Excel表中的数据区域以写入Access

Dim Sht As Worksheet

Dim Rn As Long

Dim Cn As Long

Set Sht = ThisWorkbookSheets("Sheet1")

'假设将 Sheet1 表的 2-6行的1、2、3列写入Access表

For Rn = 2 To 6

RsAddNew

Rs!num = ShtCells(Rn, 1) ’num,name,department是数据库中指定表的字段

Rs!Name = ShtCells(Rn, 2)

Rs!department = ShtCells(Rn, 3)

RsUpdate

Next Rn

MsgBox "完成!"

RsClose

CnnClose

Set Rs = Nothing

Set Cnn = Nothing

Set Sht = Nothing

End sub

在VBA中，数组是一种很有用的数据结构。可以在数组中存放相关同类的数据，方便程序进行处理。本文主要较深入地讲解数组的概念。

数组实际上就是一个变量，用来存储多个相同类型的数据。

以上就是关于VBA将一个二维数组变量的内容直接导入ACCESS全部的内容，包括:VBA将一个二维数组变量的内容直接导入ACCESS、vba数据库和数组区别、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！