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

余茂贤

例如：excel中，如果A01为数据库中的表名，B01输入的内容与数据库中字段下的内容匹配，则C01自动提取数据库中对应数据
注：我用的是64位OFFICE2013版，
如图：

WANT-T

把数据整合到一个表里，做个二级菜单的功能不就都有了？
向单元格添加列表的代码：

1. Public Sub 向单元格添加列表(rng As Range, addlist As String)
   
2.     With rng.Validation
   
3.         .Delete
   
4.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=addlist
   
5.         .IgnoreBlank = True
   
6.         .InCellDropdown = True
   
7.         .InputTitle = ""
   
8.         .ErrorTitle = ""
   
9.         .InputMessage = ""
   
10.         .ErrorMessage = ""
    
11.         .IMEMode = xlIMEModeNoControl
    
12.         .ShowInput = True
    
13.         .ShowError = False
    
14.     End With
    
15. End Sub

复制代码

一维数组转字符串：

1. Public Function 一维数组转字符串(SourceArray, Optional Delimiter As String = ",") As String
   
2.     一维数组转字符串 = Join(SourceArray, Delimiter)
   
3. End Function

复制代码

利用ADO+SQL,查询数据，转成一维数组，然后就可以了用上面的代码了！

鑫尼达

其实是个二级下拉菜单的问题,只是菜单数据源放到access数据库里面去了.

核心需求应该是实现手动+自动的半自动化功能提高输入效率和准确性.

如果非得把数据源放access数据库里面,用pq驾个桥中间过渡一下应该是最方便高效也可以少写很多代码的方式.

你测试文件都做好了为啥不顺手上传上来.没附件大神们是懒得动手的

余茂贤

鑫尼达 发表于 2022-11-8 17:09
其实是个二级下拉菜单的问题,只是菜单数据源放到access数据库里面去了.

核心需求应该是实现手动+自动 ...

对，就是这个意思，目的是我可以把ACCESS数据库放到公司服务器上，然后EXCEL表格随便谁都可以使用，我只要定期更新数据库中的数据，就能保证任何人都能用到最新的数据

余茂贤

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

感谢大神，跪求个实例附件，自己弄了半天还是没搞懂

余茂贤

鑫尼达 发表于 2022-11-8 17:09
其实是个二级下拉菜单的问题,只是菜单数据源放到access数据库里面去了.

核心需求应该是实现手动+自动 ...

就是这个意思，

02761752696

帮顶一下，三楼大神已经说了，没附件很难获得帮助

鑫尼达

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

你把你的access文件和Excel文件压缩打包上传上来,还找别人要附件...

morpheus126

我只是来看看有没什么特别的技巧的
不然老老实实ADO+SQL就好

余茂贤

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

大哥，我手上还没这样的附件，要是有，我又何必在这里求助，我截了个图只是想要说明我想要的功能