Question

VBA excel按条件查询access数据，并自动补全后面的信息

如下图所示，excel按条件查询access数据，并自动补全后面的信息

测试文件详见http://pan.baidu.com/s/1i3JwJ4L
谢谢
上图是access数据库，下图是excel
不要导入全部，只要导入[A:A]不为空的区域，比如我在[A2]输入12时则在access[表1]字段“编号”里查找value=12的行，并且把同一行的其他字段“名称”，“价格”，“含量”即aa，2，50相关信息补全，输入15时则补全dd,4,80。。。。。。
简言之，很类似于VLOOKUP功能，只不过Table-array的对象不是excel而是数据库
其实完全可以先把access导入到sheet2，再用vlookup查找sheet2[Table#all]，只是我想要更为直接的方法，谢谢！
为什么不能处理问题呢，谢谢楼下的朋友





Answer 1

全部数据都导出来了，是酱紫吗？实现代码见附件（与你原来的数据库文件放在同一目录下）

追问

我不是要导入全部的数据，单导入数据的话有更简单的方法（ADO），我只需要导入excel中A列中不为空的区域，比如我输入[A2]输入12时则在acces字段“编号”里查找value=12的行，并且把同一行的其他字段“名称”，“价格”，“含量”即aa，2，50相关信息补全。简言之，很类似于VLOOKUP功能，只不过Table-array的对象不是excel而是数据库，谢谢！

追答

你的数据库字段中含有特殊字符不好处理，我把字段名称改成这样了：

这样输完编号后，按“更新”就可以查找出结果来

追问

测试了下基本上解决了问题，但是一旦数据比较多的时候运行非常慢，还真不如先把access导入到另外一个sheet，再用普通的find或者Vlookup来得快啊。

另外正如你所说，如果字段包含特殊字符就不行，连空格和括号都不可以，的确比较遗憾，不知道怎么可以解决

追答

查了下字段的命名规范，你那种特殊字符属于不规范行为

追问

空格不属于不规范字吧
我觉得程序慢就慢在For i = 2 To [A1].End(4).Row，要是不用循环语句就能实现的话应该会更快，另外End(4)怎么理解，用的比较多的是End(xlUp)

追答

我查的规范是字母、数字、下划线、汉字。

end(4)=end(xldown)，end(3)=end(xlup)，习惯了用数字