本篇文章给大家谈谈vb6筛选excel，以及vb实验六对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。
本文目录：
VB6.0/VB.NET数据库筛选出部分数据导入到一个指定路径的新建excel（Access/SQL)用SQL语句直接生成!
用VB6方法与步骤：
1，使用SQL语句返回记录集rst。
2，引用EXCEL对象模型。
3，用一句语句就可以实现：.Cells(1, 1).CopyFromRecordset rst
利用vb6查询Excel表格数据
'首先要在VB中 引用 EXCEL
'在FORM 中 绘制 textbox ×2 commandbutton × 1
'先打开 EXCEL 第一列输入 查询字段 第二列 输入 结果内容
'先点击COMMAND1 连接EXCEL
'在TEXT1中 输入查询字段 点击COMMAND2 TEXT2中显示结果
'在VB6 EXCEL 2003测试通过
'如有疑问 请留言
Option Explicit
Dim I, J, K, L As Long
Dim ROW_COUNT, COL_COUNT As Long
Dim EXCEL_APP As Excel.Application '声明EXCEL对象
Private Sub Command1_Click()
Set EXCEL_APP = GetObject(, "Excel.Application") '连接EXCEL
End Sub
Private Sub Command2_Click()
ROW_COUNT = EXCEL_APP.ActiveSheet.UsedRange.Rows.Count '查询有多少行数据被使用，以获得最小的查询范围
EXCEL_APP.ActiveCell.Offset(1 EXCEL_APP.ActiveCell.Row, 1 EXCEL_APP.ActiveCell.Column).Select '定位于 左上角
Text2.Text = ""
For I = 1 To ROW_COUNT
If EXCEL_APP.Cells(I, 1).Value = Text1.Text Then
Text2.Text = EXCEL_APP.Cells(I, 2).Value
I = 100 + ROW_COUNT
End If
Next I
End Sub
vb6操作excel的问题
一、
VB读写EXCEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft
Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft
Excel
9.0
Object
Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim
xlApp
As
Excel.Application
Dim
xlBook
As
Excel.WorkBook
Dim
xlSheet
As
Excel.Worksheet
3、在程序中操作EXCEL表常用命令：
Set
xlApp
=
CreateObject("Excel.Application")
'创建EXCEL对象
Set
xlBook
=
xlApp.Workbooks.Open("文件名")
'打开已经存在的EXCEL工件簿文件
xlApp.Visible
=
True
'设置EXCEL对象可见（或不可见）
Set
xlSheet
=
xlBook.Worksheets("表名")
'设置活动工作表
xlSheet.Cells(row,
col)
=值
'给单元格（row,col）赋值
xlSheet.PrintOut
'打印工作表
xlBook.Close
(True)
'关闭工作簿
xlApp.Quit
'结束EXCEL对象
Set
xlApp
=
Nothing
'释放xlApp对象
xlBook.RunAutoMacros
(xlAutoOpen)
'运行EXCEL启动宏
xlBook.RunAutoMacros
(xlAutoClose)
'运行EXCEL关闭宏
4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
关于vb6筛选excel和vb实验六的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。