您的位置 首页 > 数码极客

mdb如何导入excel某列内容

使用Insert Into语句可将Excel工作表中的数据添加到Access数据库的指定表中。

有如下数据库Northwind:

将上面“供应商”的字段名填充到工作表“供应商”中,代码如下:

Sub 生成表单()

Dim cnn As New Connection, rs As New Recordset, fd As Field

Dim strsql As String, i As Long

On Error Resume Next

cnn.Open "Provider=Micro;" _

& "Data Source=" & T & "\Nor;

rs.Open "select * from 供应商", cnn

With Worksheets("供应商")

For i = 1 To rs.Fields.Count

.Cells(i, 1) = rs.Fields(i).Name

Next

End With

cnn.Close

Set cnn = Nothing

Set rs = Nothing

End Sub

代码运行后,“供应商”的字段名填充到工作表“供应商”中,效果如下:

按字段名录入数据:

需要将上面的内容添加到数据库对应的表“供应商”中,编写代码如下:

Sub 添加供应商信息()

Dim cnn As New Connection

Dim strSql As String, i As Long, c As Long

On Error Resume Next

cnn.Open "Provider=Micro;" _

& "Data Source=" & T & "\Nor;

strSql = "INSERT INTO 供应商("

With Worksheets("供应商")

c = .Range("A1").End(xlDown).Row

For i = 1 To c '生成字段列表

strSql = strSql & .Cells(i, 1) & ","

Next

strSql = Left(strSql, Len(strSql) - 1) & ") VALUES("

For i = 1 To c '生成插入的值列表

strSql = strSql & "'" & .Cells(i, 2) & "',"

Next

strSql = Left(strSql, Len(strSql) - 1) & ")"

End With

cnn.Execute strSql ' 执行SQL语句

cnn.Close

Set cnn = Nothing

End Sub

上面的代码运行后,在工作表中的数据就添加到了数据库中,效果如下:

-End-

责任编辑: 鲁达

1.内容基于多重复合算法人工智能语言模型创作,旨在以深度学习研究为目的传播信息知识,内容观点与本网站无关,反馈举报请
2.仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证;
3.本站属于非营利性站点无毒无广告,请读者放心使用!

“mdb如何导入excel某列内容”边界阅读