将excel中的数据导入至access数据库

yf_home · 发表于 2017-5-1 09:17

遍历excel工作表，将指定的两列数据，导入至access数据库，谢谢。

附件：

测试.zip (470.29 KB, 下载次数: 207)

.

huang1314wei · 发表于 2017-5-1 09:41

打开你的mdb文件----外部数据---选择excel 一步步导入就行了

yf_home · 发表于 2017-5-1 10:16

huang1314wei 发表于 2017-5-1 09:41
打开你的mdb文件----外部数据---选择excel 一步步导入就行了

我想要是批量一次性导入，因为数据比较多，谢谢。

yf_home · 发表于 2017-5-1 14:42

顶下贴，求解，谢谢！

yf_home · 发表于 2017-5-2 20:00

大家晚上好，再顶下贴，谢谢。

笑着...两年过去 · 发表于 2017-5-9 10:05

yf_home 发表于 2017-5-2 20:00
大家晚上好，再顶下贴，谢谢。

Sub test()
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data Source=" & ThisWorkbook.Path & "\代码数据库.mdb;Jet OLEDB:Database Password=admin;"
cnn.Execute ("delete from 代码库")
cnn.Execute ("insert into 代码库 select * from [Excel 12.0;Database=" & ThisWorkbook.Path & "\代码数据库.xlsx" & "].[工作表$b2:c] where 标题 is not null")
cnn.Close
Set cnn = Nothing
End Sub

复制代码

yf_home · 发表于 2017-5-14 15:41

笑着...两年过去发表于 2017-5-9 10:05

您好，ACCESS数据库格式发生点变化，该如何修改代码呀，谢谢！

附件：

测试.zip (88.98 KB, 下载次数: 91)

....

笑着...两年过去 · 发表于 2017-5-14 22:02

复制代码

linyh1742595842 · 发表于 2017-5-15 07:41

yf_home 发表于 2017-5-14 15:41
您好，ACCESS数据库格式发生点变化，该如何修改代码呀，谢谢！

已经在用access了，就用access处理好了

linyh1742595842 · 发表于 2017-5-15 08:02

本帖最后由 linyh1742595842 于 2017-5-15 08:10 编辑

yf_home 发表于 2017-5-14 15:41
您好，ACCESS数据库格式发生点变化，该如何修改代码呀，谢谢！

看了下文件，你主要是想把自己的代码收集起来，方便以后查询

我以前也是这么想的，但是看到的所有的收集代码的列子，都没有附件

这样不是很好，我现在用access做的一个可以管理代码，并且可以有附件

QQ图片20170515080635.png

		自动登录	找回密码
密码			免费注册

[求助] 将excel中的数据导入至access数据库