VB.NET開(kāi)發(fā)語(yǔ)言為我們平時(shí)的開(kāi)發(fā)方式帶來(lái)了非常的改變。很多時(shí)候可以利用Excel的數(shù)據(jù)透視表導(dǎo)出你想要的報(bào)表格式。那么VB.NET導(dǎo)出數(shù)據(jù)該如何實(shí)現(xiàn)呢？下面的代碼可以從數(shù)據(jù)庫(kù)中取出數(shù)據(jù)然后導(dǎo)入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 是服務(wù)器名或服務(wù)器的IP地址  
'DATABASE 是數(shù)據(jù)庫(kù)名  
'Table 是表名  
Try 

開(kāi)始實(shí)現(xiàn)VB.NET導(dǎo)出數(shù)據(jù)

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() 

開(kāi)始

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:=
"數(shù)據(jù)透視表1", DefaultVersion:=1) 

準(zhǔn)備行字段

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

準(zhǔn)備頁(yè)面字段

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("數(shù)量")  
xPivotField.Orientation = 4 

關(guān)閉工具條

'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,
 "報(bào)表工具", MessageBoxButtons.
OK, MessageBoxIcon.Warning)  
End Try 

VB.NET導(dǎo)出數(shù)據(jù)的具體代碼編寫就為大家介紹到這里。

【編輯推薦】

1. VB.NET刪除控件具體應(yīng)用技巧分享
2. VB.NET動(dòng)態(tài)屬性基本概念及應(yīng)用方法介紹
3. VB.NET通知控件基本概念解析
4. VB.NET消息隊(duì)列相關(guān)內(nèi)容詳細(xì)介紹
5. VB.NET浮動(dòng)窗體創(chuàng)建技巧分享