vb连接excel数据库
㈠ VB与EXCEL连接
1.确保你已经引用了EXCEL的类型库==== 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"；
2.确定已经声明了EXCEL应用程序的对象变量======Dim VBExcel As Excel.Application
在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。
例：用CreateObject函数生成新的对象引用：
Set VBExcel=CreateObject ("Excel.Application")
3.如果可能尽可能少的用绑定数据。用代码可能会更不容易出错
附上一段网上找的范例
Dim VBExcel As Excel.Application
Set VBExcel=CreateObject("Excel.Application")
With VBExcel
Workbooks.Open "C：\Temp\Ex1.XLS"
Workbooks.Open"A：\Ex2.XLS"
Workbooks("Ex1.XLS").Sheets ("Sales").Copy
Workbooks("Ex2.XLS")
Workbooks("Ex2.XLS").Save
Workbooks("Ex1.XLS").Close
Workbooks("Ex2.XLS").Close
Quit
End With
希望能有所帮助
㈡ VB和excel如何连接到一起.
你好，EXCEl就有VB的开发功能，如果是您编的软件，就可以直接在excel中编辑，是excel的VBA开发功能。具体步骤如下，office按钮---excel选项----常用工具----在功能区显示开发工具选项卡。----------———————————— 确定后，回来就可以看到“开发工具”第一个就是 您可以将VB程序编辑在这里，然后保存在Excel中。保存的时候要另存为启用宏的工作簿。VBA开发界面如下和ＶＢ是一样的，。。，
㈢ VB6.0像连接数据库一样连接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脱节。
㈣ vb adodc连接excel做数据库
Execl97/2000/xp是MS Office办公软件的成员之一。在企业级应用当中，我们往往需要对Execl进行操作，如读取Execl里面的数据、往Execl里插入数据等。
一、操作Execl要注意的事项：
1、 服务器端Office的配置
以MS Windows2000+IIS为例，要在服务器端安装有MS Office的成员之一Execl，Office的版本没有特殊要求。
2、 服务器端分布式COM的配置
执行“ DCOMCNFG”命令，选择“应用程序”页的“Microsoft Execl 应用程序”—>“属性”—>“安全性”—>三个选项都选“使用自定义访问权限”，添加“Everyone”权限。
二、首先，先将利用ASP读取Execl的数据(不建立DSN)：
我们可以整个.xsl文件看作是一个数据库，sheet1、sheet2等分别看成一个独立的表，把A1、B1、C1、…N1看作表的字段。
--建立连接对象实例ExeclConn
Set ExeclConn=Server.CreateObject(“ADODB.Connection”)
--利用Open 方法打开数据库
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("xls文件名")
conn.Open StrConn
--建立数据集对象Rs并查询数据
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
具体例子：
1、建立一个表Sheet1（数据库名为Students）
StudentID
姓 名
语 文
数 学
物 理
化 学
地 理
1
李雪青
83
84
76
95
66
2
冯江
87
96
82
100
81
3
吴小霞
76
43
37
60
82
4
邹亚汇
80
77
63
71
63
5
蔡海飞
89
63
92
86
67
2、查询并显示表Sheet1内容的代码
<%
Dim conn
Dim StrConn
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("Students.xls")
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
%>
<center>
<table border="1">
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td bgcolor="#0099FF"><%=rs(i).Name%></td>
<%
next
%>
</tr>
<%
do while Not rs.EOF
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td><%=rs(i)%></td>
<%
next
%>
</tr>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
StrConn.close
set StrConn=nothing
%>
</table></center>
3、运行结果
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/tigerwen01/archive/2003/07/03/20203.aspx
㈤ 关于VB连接excel数据的问题
在“工程”的“引用”中选择“microsoft
excel
11.0”,"microsoft
excel
11.0"看版本而定
dim
xlapp
as
new
excel.application
dim
xlbook
as
new
excel.workbook
dim
xlsheet
as
new
excel.worksheet
private
sub
command1_click()
on
error
resume
next
'后台进程运行excel程序，并得到该工作簿
set
xlbook
=
xlapp.workbooks.open("f:\1.xls")
xlapp.visible
=
false
'获得该工作簿的“sheet1”表
set
xlsheet
=
xlbook.sheets("sheet1")
xlsheet.select
'抽取b2格子的数据并赋值给text1.text
text1.text
=
xlsheet.range("b2")
'释放资源，顺序到过来的，表》》簿》》应用程序
set
xlsheet
=
nothing
set
xlbook
=
nothing
xlapp.quit
set
xlapp
=
nothing
end
sub
㈥ VB和数据库、EXCEL之间的连接问题
Option Explicit
Dim xlsApp As Excel.Application
只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的，而 Microsoft Word 8.0 对象库是为Word服务的。
在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "Hi"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub
在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。
Private Sub Command2_Click()
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub
㈦ vb,连接EXCEl数据库
Sub ReadExcel()'读取Excel文件内容
Dim x As Integer
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As New Excel.Application
Set AppExcel = CreateObject("Excel.Application")'创建Excel对象
Set xlBook = AppExcel.Workbooks.Open("D:\数据表.xls") '打开工作簿
If AppExcel Is Nothing Then Exit Sub'错误则退出
For x = 1 To AppExcel.Sheets.Count '找到对应的工作表
If AppExcel.Sheets(x).Name ="工作表名" Then
Set xlSheet = AppExcel.Sheets(x)
Exit For
End if
Next
'下面为单元格的定义
xlSheet.Cells([RowIndex],[ColumnIndex]).Value'单元格(行 , 列)
xlSheet.Range("B2:B2").Value'单元格选择
Set xlSheet = Nothing
Set xlBook = Nothing
Set AppExcel = Nothing
End Sub
'VB6.0必需先引用Microsoft Excel 11.0 Object Library
㈧ VB与EXCEL怎么连接
通过使用内嵌OLE控件实现连接。也可使用创建数据对象的方法建立连接。
建议你这样网络：输入“VB读写Excel文件”，然后搜索你需要的信息