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