表格VBA中从数据库提取信息，整行导出

高级筛选不就好了

 Sub shaixuan() 

Sheets("Sheet4")rows("2:10000")clearcontents

sheets("sheet1")Range("A:X")AdvancedFilter Action:=xlFilterCopy, criteriarange:=Worksheets("Sheet3")Range("D1:Dn"), copytorange:=Worksheets("sheet4")Range("A2"), unique:=False  'D1:Dn改为实际范围

MsgBox "筛选完毕"

End Sub

看了你的附件，用VLOOKUP函数就可以了

在同1个工作薄额VBA，倒可以，跨文件，有点难。

上三个按钮能否者增加一个保存或修改的确认，

代码里添加 MSGBOX

首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODBConnetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了

1、打开源数据文件，把首行中的对应的数据，复制行到空白位置。

2、选中J2单元格，单击编辑栏中的"插入函数“，如图示。

3、d出”插入函数“对话框，设置其类别为”逻辑“，并选择列表框中的IF选项。然后确定。

4、在d出的”函数参数“对话框中，设置Logical_test参数为”I2=“”，将Value_if_true设置为“”，即空白内容。

将Value_if_false参数框中输入“VLOOKUP(I2,A2:B2846,2),然后确定。

5、选中J2单元格，注意是J2，不是I2哦(I2是输入证券代码的地方），鼠标移动到单元格右下角，出现十字光标时，按住鼠标左键向右拖动到O2单元格。如图

6、这个时候会发现原来源数据中的C2-G2单元格中的内容就会自动填充到K2-O2单元格中。这个时候，如需要的数据是按源数据中的数据从上 到下排列的，就可以不用修改了。直接重复第5步中的方法，把J2-O2每个单元格下拉填充就完成了。如图示，先把需要的数据列复制到I列中，然后依次下拉 填充。

7、但有时候，需要的不是按照源数据中的排序，比如说，现用的这个例子，如果在I3中，输入000002就会出错。如图示。

8，这是j3中的函数为VLOOKUP(I3,A3:B2847,2))，也就是搜索从A3到B2487区域中 的内容。没有包含A2，所以我们输入000002在源数据中找不到。所以使用这个方法前，要先对需要的数据按源数据进行排序。不然，是不准确的。

以上就是关于表格VBA中从数据库提取信息，整行导出全部的内容，包括:表格VBA中从数据库提取信息，整行导出、excel 怎么通过VBA 自动提取另一个工作表中相应数据，并可以同步修改、删除和添加、如何用VBA调用数据库中数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！