請問高手：如何在VB.NET中實(shí)現(xiàn)把SQL數(shù)據(jù)庫里表的數(shù)據(jù)導(dǎo)入到Excel中？謝謝！

這個我是這么實(shí)現(xiàn)的.要用到

成都創(chuàng)新互聯(lián)是一家專注于網(wǎng)站建設(shè)、成都網(wǎng)站制作與策劃設(shè)計(jì),永清網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:永清等地區(qū)。永清做網(wǎng)站價(jià)格咨詢:18980820575

Excel.Application

Set xlapp = CreateObject("Excel.Application") '激活EXCEL

xlapp.Visible = True '讓EXCEL可見

Set xlbook = xlapp.Workbooks.Open(App.Path + "個人簡歷.xlt")

'打開工作簿，strDestination為一個EXCEL報(bào)表文件

Set xlsheet = xlbook.Worksheets(1) '設(shè)定工作表

這個有點(diǎn)像是vb6的、vb.net也有相應(yīng)的方法的.總之是

excel.application 用到這個就可以了.必要的話導(dǎo)入excel的dll文件.

這樣你就發(fā)現(xiàn)、可以用vb.net來對excel來操作.你可以查下微軟的msdn、有具體的屬性方法.

如:

Dim ef As New Excel.Application

Dim es As New Excel.Worksheet

Dim er As Excel.Range

ef.Workbooks.Add()

es = ef.Worksheets("sheet1")

es.Activate()

er = es.Range("a1:C1")

er.Select()

er.Merge()

er.Value = "gordon1117"

ef.Visible = True 目前應(yīng)用了三個對象:application,worksheet和range,三者的關(guān)系應(yīng)該清晰,做到這點(diǎn)就能從基本開始做了:)格式設(shè)置都在range對象,只不過在設(shè)置對齊屬性上是verticalalignment和horizon

range 用來定位、

然后你可以循環(huán)把數(shù)據(jù)輸出到指定了格式的excel文件里了吧、其實(shí)連格式都是可以程序控制的好好學(xué)下吧.

可以參考一下這篇文章

VB中把SQL數(shù)據(jù)導(dǎo)出到EXCEL該怎么做

建議你直接用excel的VBA，很方便，用ADO鏈接數(shù)據(jù)庫。

或者excel本身就可以直接連接數(shù)據(jù)庫。

一定要VB的話，也是ADO連接，然后vb要引用Microsoft Excel xx.0 Object Library，操作excel。

VB.NET的話可以用NPOI/ExcelLibrary等讀寫excel。

如何在vb.net中將一個已經(jīng)幫定好的sql server的表保存為一個excel表格?

要用T-SQL語句直接導(dǎo)出至Excel工作薄，就必須借用SQL Server管理器的一個擴(kuò)展存儲過程：“xp_cmdshell”，此過程的作用為“以操作系統(tǒng)命令行解釋器的方式執(zhí)行給定的命令字符串，并以文本行方式返回任何輸出。”下面為定義示例：

EXEC master..xp_cmdshell 'bcp 庫名.dbo.表名out c:\Book3.xls -c -q -S"servername" -U"sa" -P""'

參數(shù)：S 是SQL服務(wù)器名；U是用戶名；P是密碼,沒有就空著

說明：其實(shí)用這個過程導(dǎo)出的格式實(shí)質(zhì)上就是文本格式的，不信的話在導(dǎo)出的Excel表中改動一下再保存看看。

實(shí)際例子與說明如下：

A，將表整個導(dǎo)出至Excel：

EXEC master..xp_cmdshell 'bcp northwind.dbo.orders out c:\Book1.xls -c -q -S"(local)" -U"sa" -P""'

注：

××northwind.dbo.orders，為數(shù)據(jù)庫名＋擁有者＋表名

××直接導(dǎo)出用“out”關(guān)健字

-------------------------------------------

B，利用查詢來導(dǎo)出部分字段至Excel：

EXEC master..xp_cmdshell 'bcp "SELECT orderid,cutomerid,freight FROM northwind..orders ORDER BY orderid" queryout C:\ Book1.xls -c -S"(local)" -U"sa" -P""'

注：

××在bcp后面加了一個查詢語句，并用雙引號括起來

××利用查詢要用“queryout”關(guān)鍵字

跪求 VB 將SQL表導(dǎo)出成excel文件 和 將excel導(dǎo)入到SQL表中

從SQL導(dǎo)到Excel中：

insert into openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$) Selec *（SQL表中的字段名 AS Excel表中的字段名[,SQL表中的字段名 AS Excel表中的字段名,…]） from 表名

從Excel導(dǎo)到SQL中：

insert into SQL表名(字段名)

select Excel字段名 AS SQL表字段名[,Excel字段名 AS SQL表字段名]

from openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$)

套用到VB中去就可以了

網(wǎng)頁題目：關(guān)于vb.net導(dǎo)出sql表的信息
瀏覽路徑：http://www.chinadenli.net/article6/hpgcog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、外貿(mào)網(wǎng)站建設(shè)、域名注冊、全網(wǎng)營銷推廣、定制開發(fā)、微信公眾號

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)