如何使用VBA依照列表提取指定资料库数据

作者：绿色风分类：时间：2022-08-18 浏览：95

楼主
xmyjk

Q:如何使用VBA依照列表提取指定资料库数据?

Option Explicit
Sub test()
Dim cnn As Object, sql As String, cx As String, rcd As Object, arr, rn As Range, yuan As String
Sheets("存放").[a1].CurrentRegion.Offset(1).ClearContents
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
yuan = Application.InputBox("请输入需查询的表的名称：", , , , , , , 2)
Set rn = Application.InputBox("请使用鼠标选择查询条件的数据区域：", , , , , , , 8)
arr = rn.Value
cx = """" & Join(Application.Transpose(arr), """,""") & """"
sql = "Select * From [" & yuan & "$] where 姓名 in (" & cx & ")"
Set rn = Application.InputBox("请使用鼠标选择导出结果输出的起始单元格：", , , , , , , 8)
Application.ScreenUpdating = False
rn.CopyFromRecordset cnn.Execute(sql)
cnn.Close: Set cnn = Nothing
Application.ScreenUpdating = True
rn.Parent.Select
MsgBox "Ok"
End Sub

222.rar

2楼
JOYARK1958

謝謝提供學習下載中

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表