这篇文章主要为大家展示了“VB.NET如何操作Excel”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“VB.NET如何操作Excel”这篇文章吧。
VB.NET操作Excel代码
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 TryTry 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 TryDim 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”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注亿速云行业资讯频道！
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
