VB.NET開發語言為我們平時的開發方式帶來了非常的改變。很多時候可以利用Excel的數據透視表導出你想要的報表格式。那么VB.NET導出數據該如何實現呢？下面的代碼可以從數據庫中取出數據然后導入Excel。

Dim excel As Excel.Application  
Dim xBk As Excel._Workbook  
Dim xSt As Excel._Worksheet  
Dim xRange As Excel.Range  
Dim xPivotCache As Excel.
PivotCache  
Dim xPivotTable As Excel.
PivotTable  
Dim xPivotField As Excel.
PivotField  
Dim cnnsr As String, sql 
As String  
Dim RowFields() As String = 
{"", "", ""}  
Dim PageFields() As String = 
{"", "", "", "", "", ""}  
'SERVER 是服務器名或服務器的IP地址  
'DATABASE 是數據庫名  
'Table 是表名  
Try 

開始實現VB.NET導出數據

cnnsr = "ODBC;DRIVER=SQL 
Server;SERVER=" + SERVER   
cnnsrcnnsr = cnnsr + ";UID=;
APP=Report Tools;WSID=ReportClient;
DATABASE=" + DATABASE  
cnnsrcnnsr = cnnsr + ";
Trusted_Connection=Yes"  
excel = New Excel.ApplicationClass  
xBk = excel.Workbooks.Add(True)  
xSt = xBk.ActiveSheet  
xRange = xSt.Range("A4")  
xRange.Select() 

開始

xPivotCache = xBk.PivotCaches
.Add(SourceType:=2)  
xPivotCache.Connection = cnnsr 
xPivotCache.CommandType = 2 
sql = "select * from " + Table  
xPivotCache.CommandText = sql 
xPivotTable = xPivotCache.
CreatePivotTable(TableDestination:
="Sheet1!R3C1", TableName:=
"數據透視表1", DefaultVersion:=1) 

準備行字段

RowFields(0) = "字段1"  
RowFields(1) = "字段2"  
RowFields(2) = "字段3" 

準備頁面字段

PageFields(0) = "字段4"  
PageFields(1) = "字段5"  
PageFields(2) = "字段6"  
PageFields(3) = "字段7"  
PageFields(4) = "字段8"  
PageFields(5) = "字段9"  
xPivotTable.AddFields(RowFields
RowFields:=RowFields, PageFields
PageFields:=PageFields)  
xPivotField = xPivotTable.
PivotFields("數量")  
xPivotField.Orientation = 4 

關閉工具條

'xBk.ShowPivotTableFieldList
 = False 
'excel.CommandBars("PivotTable")
.visible = False 
excel.Visible = True 
Catch ex As Exception  
If cnn.State = ConnectionState
.Open Then  
cnn.Close()  
End If  
xBk.Close(0)  
excel.Quit()  
MessageBox.Show(ex.Message,
 "報表工具", MessageBoxButtons.
OK, MessageBoxIcon.Warning)  
End Try 

VB.NET導出數據的具體代碼編寫就為大家介紹到這里。

【編輯推薦】

1. VB.NET刪除控件具體應用技巧分享
2. VB.NET動態屬性基本概念及應用方法介紹
3. VB.NET通知控件基本概念解析
4. VB.NET消息隊列相關內容詳細介紹
5. VB.NET浮動窗體創建技巧分享