教你迅速掌握VB.NET操作Excel-vb操作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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.

VB.NET操作Excel的相关代码编写方法就为大家介绍到这里。