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

這個(gè)我是這么實(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 + "個(gè)人簡(jiǎn)歷.xlt")

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

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

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

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

這樣你就發(fā)現(xiàn)、可以用vb.net來(lái)對(duì)excel來(lái)操作.你可以查下微軟的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)用了三個(gè)對(duì)象:application,worksheet和range,三者的關(guān)系應(yīng)該清晰,做到這點(diǎn)就能從基本開始做了:)格式設(shè)置都在range對(duì)象,只不過(guò)在設(shè)置對(duì)齊屬性上是verticalalignment和horizon

range 用來(lái)定位、

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

可以參考一下這篇文章

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

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

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

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

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

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

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

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

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

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

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

A，將表整個(gè)導(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ù)庫(kù)名＋擁有者＋表名

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

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

B，利用查詢來(lái)導(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后面加了一個(gè)查詢語(yǔ)句，并用雙引號(hào)括起來(lái)

××利用查詢要用“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)頁(yè)題目：關(guān)于vb.net導(dǎo)出sql表的信息
瀏覽路徑：http://chinadenli.net/article6/hpgcog.html

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

廣告

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