教你迅速掌握VB.NET操作Excel

作者：佚名 2010-01-11 14:28:14

我們可以結合以下代碼示例對VB.NET操作Excel這一技巧進行一個詳細的解讀。并通過實際代碼實踐對此加深映像，以方便我們將來的使用。

如果我們想在VB.NET環境下進行Excel的操作的話，應當如何正確的進行呢？關于VB.NET操作Excel這一問題可能對于沒有太多開發經驗的新手來說有點困難。今天在這里就為大家詳細介紹一下這一應用技巧，讓大家有一個詳盡的認識。#t#

今天寫的VB.NET操作Excel代碼，一些要做保留，記錄 Public Class ExportXlsClass ExportXls

Public Sub Printer()Sub Printer
(ByVal pid As Int16, ByVal dbhlp
As DBHelper, ByVal objds As ploy)
Dim sqlstr As String
sqlstr = "select * from Ploy
where ployID=" & pid
dbhlp.FillDataTable(sqlstr,
objds, "Ploy")
sqlstr = "select * from PForeign
where ployID=" & pid
dbhlp.FillDataTable(sqlstr,
objds, "PForeign")
Dim exl As New Excel.Application
exl.Visible = True
exl.DisplayAlerts = True
exl.WindowState = Excel.XlWindow
State.xlMaximized
'Dim wb As Excel.Workbook =
exl.Workbooks.Open(Application.
StartupPath & "\print.xls")
'Dim ws As Excel.Worksheet =
wb.Worksheets("prt")
Dim wb As Excel.Workbook =
exl.Workbooks.Add()
Dim ws As Excel.Worksheet =
wb.Worksheets.Item(1)
Dim Rng As Excel.Range
Rng = ws.Columns(1)
Rng.ColumnWidth = 16
Rng = ws.Columns(2)
Rng.ColumnWidth = 46
Rng = ws.Columns(3)
Rng.ColumnWidth = 16
Dim dr As ploy.PloyRow
dr = objds.Ploy.Rows(0)
Try
Rng = ws.Range("A1:A1", "C1:C1")
Rng.Cells.Merge()'合并單元格
Rng.Font.Name = "黑體"
Rng.Font.Size = "22"
Rng.HorizontalAlignment = -4108
Rng.VerticalAlignment = -4108
Rng.Value = dr.PSubject
Catch ex As Exception
End Try

Try  
Rng = ws.Range("A2:A2", "C2:C2")  
Rng.Cells.Merge()  
Rng.Font.Name = "黑體" 
Rng.Font.Size = "14" 
Rng.HorizontalAlignment = -4108  
Rng.VerticalAlignment = -4108  
Rng.Value = "時間：" & dr.PTime  
Catch ex As Exception  
End Try

Try  
Rng = ws.Range("A3:A3", "C3:C3")  
Rng.Cells.Merge()  
Rng.Font.Name = "黑體" 
Rng.Font.Size = "14" 
Rng.HorizontalAlignment = -4108  
Rng.VerticalAlignment = -4108  
Rng.Value = "地點：" & dr.Place  
Catch ex As Exception  
End Try

Dim drF As ploy.PForeignRow  
Dim i, rngi As Integer  
Dim rngs, cellB, cellE As String  
rngi = 5 + objds.PForeign.Rows.Count  
cellB = "A5:A5" 
cellE = "C" & rngi.ToString & 
":C" & rngi.ToString  
Rng = ws.Range(cellB, cellE)  
Rng.Font.Name = "仿宋_GB2312" 
Rng.Font.Size = "16" 
Rng.Borders.LineStyle = 1 
Rng.HorizontalAlignment = -4108  
Rng.VerticalAlignment = -4108  
Rng = ws.Range("A5")  
Rng.Value = "領館" 
Rng = ws.Range("B5")  
Rng.Value = "出席人員" 
Rng = ws.Range("C5")  
Rng.Value = "職銜" 
rngi = 6 
For i = 0 To objds.PForeign.
Rows.Count - 1  
drF = objds.PForeign.Rows(i)  
Rng = ws.Range("A" & rngi.ToString)  
Rng.Value = drF.PConsulate  
Rng = ws.Range("B" & rngi.ToString)  
Rng.Value = drF.PName  
Rng = ws.Range("C" & rngi.ToString)  
Rng.Value = drF.PRank  
rngirngi = rngi + 1  
Next  
'wb.Save()  
'If Not exl Is Nothing Then  
' exl.Workbooks.Close()  
' exl.Quit()  
' System.Runtime.InteropServices.
Marshal.ReleaseComObject(exl)  
'End If  
'If Not ws Is Nothing Then  
' System.Runtime.InteropServices.
Marshal.ReleaseComObject(ws)  
'End If  
'ws = Nothing 
'exl = Nothing 
'GC.Collect()  
End Sub  
End Class

VB.NET操作Excel的相關代碼編寫方法就為大家介紹到這里。

責任編輯：曹凱來源：博客園

VB.NET操作Excel