vb连接excel查询,电子表格vba连接excel数据库查找
1. vba连接excel数据库查找
1、打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；
2、选择搜索框的下拉菜单，选择“worksheet”选项功能；
3、选择BeforeDoubleClick，也就是在本工作表鼠标双击（之前），将触发下面的代码程序；
4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明一个函数；
5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1,3)=Sheet1.Cells(1,1)+Sheet1.Cells(1,2)；
6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；
7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。
2. vba如何查找数据并写入数据
答：条件假设：文本框：TextBox1；列表框：ListBox1；数据区域左上角为A1；此工作表为活动工作表。添加TextBox1事件代码：
3. vba 查找数据
答案如下
Dim i As Integer=listview.items.indexof(listview.focuseditem)'首先获得选中项的索引
Msgbox(listview.items(i).subitems(0).text)'弹出消息框显示所选择项的第0列的文本。
'LISTVIEW1中有13列
'因为LISTVIEW1中的所有数据，有可能是通过筛选得来的，可能通过搜索得来的
'所以在这里将显示在LISTVIEW1中的数据写入数组ARR中，方便处理这些数据
Dim arr
With ListView1
ReDim arr(1 To .ListItems.Count, 1 To 13)
For i = 1 To UBound(arr, 1) '遍历所有LISTVIEW1数据的行，用 For i = 1 To .ListItems.Count 也可以
arr(i, 1) = .ListItems(i).Text '第一列不一样，无法通过循环得到，只好单取
For j = 2 To 13 '遍历第i行的所有列的数据，共13列，第1列数据已取，从第2列开始
arr(i, j) = .ListItems(i).ListSubItems(j - 1).Text '将i行其他列写入数组中
Next
Next
End
4. excel连接数据库查询
打开需要归纳整理查询的Excel工作表，点击上方菜单栏上的“数据”。
在数据菜单下的获取和转换命令组区域点击“显示查询”即可看到在表格的右侧显示工作簿查询窗口，在窗口中可以看到所有的查询和连接。
在工作簿窗口的空白位置单击鼠标右键，在列表中选择“新建组”。
在弹出的新建组对话框中“名称”的下面自定义输入组名，点击确定按钮，即可在查询窗口中新建一个查询组，外形类似文件夹。
5. vba查询数据库
Sub 按钮1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面两句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字符串变量
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串
6. vba连接网络数据库
设为共享文件，但无法控制数据修改，且操作上很不方便。有人说可以用VBA做一个操作平台，数据库设在一台机器上，另多台机安装操作台，但我还没找到这样有实例啊，我也想啊！
7. excel vba查找
Sub aa() Sheet2.[d:d].Find(Int(Sheet1.Cells(2, 3).Value / 100) * 100).EntireRow.Select End Sub启动excel后,ALT+F11,插入菜单---插入模板---复制以上代码,然后执行这个宏.
8. excel vba连接数据库
sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" cnn.Open strCn SQL = "" cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中 cnn.Close Set cnn = Nothingend sub
请参考
连接数据库后，通过写SQL语句实现增删改查
9. vba快速查找数据
VBA查找重复值一般使用字典对象，例子代码：；
set db = createobject("scripting.dictionary")arr = range("a1:d10") '需要检查的区域for i=1 to ubound(arr) for j=1 to ubound(arr,2) if db.exists(arr(i,j)
) then msgbox "发现重复值：" & arr(i,j) else db(arr(i,j)) = true end if next jnext i