使用 ADO 連接到 Excel
創(chuàng)新互聯(lián)公司專注于成都網(wǎng)站設(shè)計、做網(wǎng)站、網(wǎng)頁設(shè)計、網(wǎng)站制作、網(wǎng)站開發(fā)。公司秉持“客戶至上,用心服務(wù)”的宗旨,從客戶的利益和觀點出發(fā),讓客戶在網(wǎng)絡(luò)營銷中找到自己的駐足之地。尊重和關(guān)懷每一位客戶,用嚴謹?shù)膽B(tài)度對待客戶,用專業(yè)的服務(wù)創(chuàng)造價值,成為客戶值得信賴的朋友,為客戶解除后顧之憂。
ADO 使用 MDAC 中以下兩個 OLE DB 提供程序中的任何一個都可以連接到 Excel 數(shù)據(jù)文件。
Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers
使用 Microsoft Jet OLE DB Provider
Jet 提供程序只需要兩條信息就可以連接到 Excel 數(shù)據(jù)源:路徑(包括文件名),和 Excel 文件版本。
Jet 提供程序使用連接字符串
Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" _
"Extended Properties=Excel 8.0;"
.Open
End With
提供程序版本:必須使用 Jet 4.0 提供程序;Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動程序。如果指定了 Jet 3.51 提供程序,在運行時會出現(xiàn)以下錯誤信息:
Couldn't find installable ISAM.
Excel 版本:對于 Excel 95 工作簿(Excel 版本 7.0),應指定 Excel 5.0;對于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿(Excel 版本 8.0、9.0 和 10.0),應指定 Excel 8.0 版本。
使用“數(shù)據(jù)鏈接屬性”對話框的 Jet 提供程序
如果在應用程序中使用“ADO 數(shù)據(jù)控件”或“數(shù)據(jù)環(huán)境”,就會出現(xiàn)數(shù)據(jù)鏈接屬性對話框來收集必要的連接設(shè)置。
在提供程序選項卡上,選擇 Jet 4.0 提供程序;Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動程序。如果指定了 Jet 3.51 提供程序,在運行時會出現(xiàn)以下錯誤信息:
Couldn't find installable ISAM.
在連接選項卡上,瀏覽到工作簿文件。忽略“用戶 ID”和“密碼”項,因為這些不適用于 Excel 連接。(無法打開受密碼保護的 Excel 文件作為數(shù)據(jù)源。)
在所有選項卡上,從列表中選擇擴展屬性,然后單擊編輯值。輸入 Excel 8.0;,用分號 (;) 將其與任何其他已有的項分隔。如果忽略此步驟,測試連接時將出現(xiàn)一條錯誤信息。這是因為如果不另行指定,Jet 提供程序期望 Microsoft Access 數(shù)據(jù)庫。返回到連接選項卡,并單擊測試連接。將出現(xiàn)一個消息框,通知測試已成功完成即可。
1、office2003的驅(qū)動應該是:Microsoft.Jet.OleDb.4.0.你必須加引用這個包。
2、這個是office自帶的驅(qū)動,不需要打包了,客戶機器上裝了office就OK了。
根據(jù)客戶機子的office版本,加載對應的驅(qū)動吧。
希望能幫到你。有問題繼續(xù)追問吧。
在項目中添加Excel類庫的引用,然后在VB中定義Excel 的Application,WorkBook和Worksheet
然后對Worksheet中的Range進行操作,不用像Access那樣建立ADO什么的連接。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="Excel Application Test"
.Range("B1" ":D2").Merge
.Range("B1" ":D2").Value="合并表格內(nèi)容"
end with!
我的是2007版本,其它類似
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用對象的聲明過程中定義EXCEL對象:
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令:
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象
Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件
xlApp.Visible = True '設(shè)置EXCEL對象可見(或不可見)
Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動工作表
xlSheet.Cells(row, col) =值 '給單元格(row,col)賦值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '關(guān)閉工作簿
xlApp.Quit '結(jié)束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏 xlBook.RunAutoMacros (xlAutoClose) '運行EXCEL關(guān)閉宏
還有很多,這個要自己慢慢摸索
第一步,新建項目。
1
打開vb.net,也就是打開Microsoft visual studio 2010,第一次使用的時候設(shè)置為basic語言就行。新建項目--打開excel。
2
新建成功。
END
第二步,添加引用。
1
“項目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步,添加打開文件對話框工具。
1
工具箱--對話框--openfiledialog。
2
添加成功。
END
第四步,添加命令按鈕控件。
1
工具箱--公共控件--button。
在控件上右擊鼠標,進入屬性設(shè)置。
2
text屬性設(shè)置為“打開excel”。
3
name屬性也設(shè)置為“打開excel”。
END
第五步,編寫程序。
1
鼠標雙擊命令按鈕,進入編程界面,編寫程序。
END
第六步,運行程序。
1
鼠標單擊啟動調(diào)式圖標,程序開始運行。
2
單擊打開excel命令按鈕,調(diào)用打開文件對話框,選擇自己要打開的excel文件。
END
第七步,保存程序。
第一次程序運行完,關(guān)閉程序,出現(xiàn)關(guān)閉項目提示,選擇保存。
2
選好自己要保存的位置。
網(wǎng)頁題目:vb.net連接excel的簡單介紹
路徑分享:http://aaarwkj.com/article46/dooooeg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、微信公眾號、網(wǎng)站收錄、小程序開發(fā)、網(wǎng)站策劃、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)