vba查找数据库

㈠ vba如何设置根据输入的内容查找数据位置

vba设置根据输入的内容查找数据位置的方法如下：

1. 查找用Range对象的Find方法，返回Rang对象，然后再取Range对象的Row属性或Column属性返回行或列;

2. 要注意的是Find方法可能会返回Nothing，要先检查一下，否则后出错;

3. 例如SetC=Range("A1:E10").Find("abc")If Not C Is Nothing thenR=C.Row '返回行,Cl=C.Column '返回列end if,或者：Set C=Range("A1:E10").Find("abc")If Not C Is Nothing then,C.SelectR=Selection.Row '返回行Cl=Selection。

㈡ vba如何调用Access的查询,并显示查询结果

1.点击：创建--宏。打开宏编辑器。

㈢ 利用VBA从Access数据库中查找数据

打开VBA编辑器的两种方式：

Excel → 开发工具 → Visual Basic：打开VBE后，点击插入，选择模块，就可以在该项目下新建一个空白模块。
Excel → 开发工具 → 插入 → 控件 → 右键控件 → 指定宏：可以直接将宏绑定到控件上，然后进行编辑。
进行编写代码前的准备工作：

Visual Basic → 工具 → 引用：引用 Microsoft ActiveX Data Objects 2.x Library，否则运行代码会报“用户定义类型未定义”提示。
Excel中用VBA根据输入的日期从Access数据库中提取相应的数据并插入到Excel表中：

㈣ VBA查找存在的数据

Subadmin()
Dimconn,ssql,xShAsWorksheet,xRanAsRange
SetxSh=ThisWorkbook.Worksheets("Sheet1")
SetxRan=xSh.Range("A2")
Setconn=CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.Oledb.4.0;"&_
"ExtendedProperties='Excel8.0;hdr=yes;IMEX=1';"&_
"DataSource="&ThisWorkbook.FullName
DoWhilexRan<>""
sSql="Selectcount(*)From[Sheet2$]Where(姓名like'%"&xRan.Value&"%'or别名like'%"&xRan.Value&"%')and性别='"&xRan.Offset(0,1).Value&"'"
Ifconn.Execute(sSql)(0)=0Then
xRan.Range("A1:B1").Interior.ColorIndex=3
Else
xRan.Range("A1:B1").Interior.ColorIndex=0
EndIf
SetxRan=xRan.Offset(1,0)
Loop
conn.Close
Setconn=Nothing
EndSub

Sub查找3()
Setconn=CreateObject("adodb.connection")
Setrst=CreateObject("ADODB.recordset")
conn.Open"provider=microsoft.jet.oledb.4.0;extendedproperties=excel8.0;datasource="&ThisWorkbook.path&"/Database/exceldata.xls"
rst.Open"select*from[Sheet2$]whereLC=703456",conn,adOpenKeyset,adLockOptimistic
Ifrst.RecordCount<1Then
MsgBox"找不到该字段"
GoTo100
EndIf
Sheet2.Cells(1,1)="LC"
Sheet2.Cells(2,1)=rst.Fields("LC")
Sheet2.Cells(1,2)="G1"
Sheet2.Cells(2,2)=rst.Fields("G1")
100:
rst.Close
conn.Close
Setrst=Nothing
Setconn=Nothing
EndSub