教你迅速掌握VB.NET操作Excel
作者：佚名
我們可以結(jié)合以下代碼示例對(duì)VB.NET操作Excel這一技巧進(jìn)行一個(gè)詳細(xì)的解讀。并通過實(shí)際代碼實(shí)踐對(duì)此加深映像，以方便我們將來的使用。
如果我們想在VB.NET環(huán)境下進(jìn)行Excel的操作的話，應(yīng)當(dāng)如何正確的進(jìn)行呢？關(guān)于VB.NET操作Excel這一問題可能對(duì)于沒有太多開發(fā)經(jīng)驗(yàn)的新手來說有點(diǎn)困難。今天在這里就為大家詳細(xì)介紹一下這一應(yīng)用技巧，讓大家有一個(gè)詳盡的認(rèn)識(shí)。#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 = "時(shí)間：" & 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 = "地點(diǎn)：" & 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 = "領(lǐng)館"
- 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的相關(guān)代碼編寫方法就為大家介紹到這里。
責(zé)任編輯：曹凱
來源：
博客園
