如何在EXCEL单元格中调用ACCESS数据库中对应字段的数据？

鑫尼达

余茂贤 发表于 2022-11-9 13:06
大哥，我手上还没这样的附件，要是有，我又何必在这里求助，我截了个图只是想要说明我想要的功能

没救了,这贴沉了吧

鑫尼达

发帖的技巧

WANT-T

余茂贤 发表于 2022-11-9 09:56
感谢大神，跪求个实例附件，自己弄了半天还是没搞懂

我的都在应用中，不方便往出放！给你几个截图，瞅瞅得了：
1、功能区：

2、部分核心代码

3、拼接动态SQL ：

xiangbaoan

1. Private Sub Worksheet_Change(ByVal Target As Range) '看图而写，未经测试
   
2.   If Intersect(Target, Range("A1").CurrentRegion.Resize(, 2)) Is Nothing Then Exit Sub
   
3.   Dim posRow As Long, Conn As Object, SQL As String
   
4.   posRow = Target.Row
   
5.   Set Conn = CreateObject("ADODB.Connection")
   
6.   Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\神马Access文件.accdb"
   
7.   SQL = "SELECT 单价 FROM [" & Cells(posRow, 1).Value & "] WHERE 材料名称='" & Cells(posRow, 2).Value & "'"
   
8.   Cells(posRow, 3).CopyFromRecordset Conn.Execute(SQL)
   
9.   Conn.Close
   
10.   Set Conn = Nothing
    
11. End Sub

复制代码

02761752696

余茂贤 发表于 2022-11-9 13:06
大哥，我手上还没这样的附件，要是有，我又何必在这里求助，我截了个图只是想要说明我想要的功能

这里所说的附件，是你所需求，但没实现，有模拟需求结果的表格和ACC文件，不然别人写代码前，还要先按照你的图片准备模拟文件，再来写代码？？
想起一个笑话：
甲：老板，车胎没气了，怎么搞，提供一个没气的车胎【照片】
乙：检查漏气点，修补，充气。
甲：我不会，你帮我
乙：车胎呢？
甲：我没有，有我就会了。
乙：要不要我去买一个车胎，不给你看？？
......

余茂贤

鑫尼达 发表于 2022-11-9 10:46
你把你的access文件和Excel文件压缩打包上传上来,还找别人要附件...

做了个附件传上去了、

余茂贤

WANT-T 发表于 2022-11-8 14:38
把数据整合到一个表里，做个二级菜单的功能不就都有了？
向单元格添加列表的代码：
一维数组转字符串：

麻烦大神帮忙改下附件，发了几天了，貌似大家都遗忘了，

余茂贤

xiangbaoan 发表于 2022-11-9 14:09

有附件，也在附件中说清楚了想要实现的功能，麻烦大神有空时关注下

余茂贤

看来是沉了，伤心呀~~~

louiszoom

对于有80万条记录的库 我都直接放入工作表内 用EXCEL连数据库 会让你怀疑人生，非的用库 可以考虑 用MYSQL+PHP