vb获取当前打开的excel表格中的内容(vb查找excel内容)

1. vb查找excel内容

用SQL语句，将表导出为EXCEL。

SELECT

字段表

INTO

[Excel

8.0;database=D:\temp\200803.XLS].Data

FROM 表

2. vb查询excel数据

可以调用工作表函数vlookup、hlookup、lookup、match、find等函数进行查询。也可以使用for each或者for、do loop等循环语句进行查询。具体如何使用，要结合你的实际需要来看

3. vb读取excel数据

在VB中建立到excel表的连接，就可以打开文件了。。

然后读取excel文件的代码和VBA差不多，具体的自己调试下！

下面代码要求执行代码的电脑上必须安装了excel程序（这样可以不添加对excel的引用）。。

Dim xlsApp As Object, xlsWb As Object, xlsWs As Object '定义Excel对象

Set xlsApp = CreateObject("Excel.Application") '建立excel对象

Set xlsWb = xlsApp.Workbooks.Open(fPath) '要打开的文档路径

Set xlsWs = xlsWb.Worksheets(1) '选工作表。多张表时通过序号指定不同的表

xlsWs.Activate '选定工作表，下面就可以开始读取表内容了。

最后数据处理完成后记得执行下面操作：

xlsWb.Close '关闭excel文件

xlsApp.Quit '退出excel

Set xlsWs = Nothing

Set xlsWb = Nothing

Set xlsApp = Nothing

4. vb显示excel表格内容

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭

5. vb查找文件

在命令按钮下置入一下代码，如果找不到输入名称的文件夹，会提示是否要建立一个新文件夹！If FolderNM = "" Then MsgBox "请输入文件夹名称", 64, "提示": Exit SubIf FolderNM <> "" Then m = Trim（FolderNM)End Iff = Dir("D:\" & m, vbDirectory)If f = "" Then If MsgBox("找不到指定文件夹，是否建立新文件夹？", 32 + 4, "询问") = vbYes Then MkDir ("D:\" & m) If MsgBox("文件夹创建成功,现在是否打开", 32 + 4, "询问") = vbYes Then Ret = Shell("explorer.exe D:\" & m, vbNormalFocus) End If End IfElse Ret = Shell("explorer.exe D:\" & m, vbNormalFocus)End If

6. vb如何查询数据库

你需要定义一个ADODB.Recordset对象:PublicrsAsNewADODB.Recordsetrs.Open"selectwjyfromzm",conn赋值的语句:IfNotrs.EOFthensd=rs.Fields(0)EndIf

7. vb读取excel

Sub test11() Dim path, file, wb As Workbook Application.ScreenUpdating = False path = Application.ThisWorkbook.path & "\" file = Dir(path & "*.xls*") Do While file <> "" If file <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & file) wb.Worksheets("围护结构位移").Range("F5:F24").Copy ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) wb.Close savechanges:=False End If file = Dir Loop Application.ScreenUpdating = True End Sub

8. vb数据库查询

数据库就是用来存储数据的工具，可以在里面对数据进行查询插入删除等操作，vb是编程工具，用来写电脑软件的，他们之间的关系是相互依存的，编写程序离不开数据支持，没有数据的程序是死的，而程序的数据就来自于数据库

9. vb访问excel数据库

Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。具体步骤：

1、在电脑上桌面上找到Excel表格图标，双击打开。

2、打开Excel软件后，点击左上角按钮。

3、点击后会弹出一个菜单，在菜单中点击Excel选项按钮。

4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。6、点击确定后，会返回Excel页面。7、然后在Excel上方的导航栏中点击开发工具按钮。8、然后在开发工具页面，点击Visual Basic选项。9、点击后就会进入Visual Basic开发模式。10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。

10. excel怎么查看vb代码

将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格

按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码

下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中

下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中

代码编写完成，点击运行子过程按钮（或按下F5）

返回Excel中，就可以看到得到了当前单元格的行号和列号

11. vb 查找

VB中有一个App对象代表当前应用程序，App.Path属性是当前应用程序所在的路径 例如： String strDatabaseName = "mydb.mdb" String strFullPathName = App.Path & "\" & strDatabaseName 则strFullPathName就代表当前路径下的mydb.mdb文件