請問高手：如何在VB.NET中實現把SQL數據庫里表的數據導入到Excel中？謝謝！

這個我是這么實現的.要用到

成都創新互聯是一家專注于網站建設、成都網站制作與策劃設計,永清網站建設哪家好?成都創新互聯做網站,專注于網站建設十余年,網設計領域的專業建站公司;建站業務涵蓋:永清等地區。永清做網站價格咨詢:18980820575

Excel.Application

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

xlapp.Visible = True '讓EXCEL可見

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

'打開工作簿，strDestination為一個EXCEL報表文件

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

這個有點像是vb6的、vb.net也有相應的方法的.總之是

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

這樣你就發現、可以用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 目前應用了三個對象:application,worksheet和range,三者的關系應該清晰,做到這點就能從基本開始做了:)格式設置都在range對象,只不過在設置對齊屬性上是verticalalignment和horizon

range 用來定位、

然后你可以循環把數據輸出到指定了格式的excel文件里了吧、其實連格式都是可以程序控制的好好學下吧.

可以參考一下這篇文章

VB中把SQL數據導出到EXCEL該怎么做

建議你直接用excel的VBA，很方便，用ADO鏈接數據庫。

或者excel本身就可以直接連接數據庫。

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

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

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

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

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

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

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

實際例子與說明如下：

A，將表整個導出至Excel：

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

注：

××northwind.dbo.orders，為數據庫名＋擁有者＋表名

××直接導出用“out”關健字

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

B，利用查詢來導出部分字段至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”關鍵字

跪求 VB 將SQL表導出成excel文件 和 將excel導入到SQL表中

從SQL導到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導到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中去就可以了

網頁題目：關于vb.net導出sql表的信息
瀏覽路徑：http://vcdvsql.cn/article6/hpgcog.html

成都網站建設公司_創新互聯，為您提供外貿建站、外貿網站建設、域名注冊、全網營銷推廣、定制開發、微信公眾號

廣告

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