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文件」，然後搜索你需要的信息