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

开发 后端
我们可以结合以下代码示例对VB.NET操作Excel这一技巧进行一个详细的解读。并通过实际代码实践对此加深映像,以方便我们将来的使用。

如果我们想在VB.NET环境下进行Excel的操作的话,应当如何正确的进行呢?关于VB.NET操作Excel这一问题可能对于没有太多开发经验的新手来说有点困难。今天在这里就为大家详细介绍一下这一应用技巧,让大家有一个详尽的认识。#t#

今天写的VB.NET操作Excel代码,一些要做保留,记录 Public Class ExportXlsClass ExportXls

 

  1. Public Sub Printer()Sub Printer
    (ByVal pid As Int16, ByVal dbhlp 
    As DBHelper, ByVal objds As ploy)  
  2. Dim sqlstr As String  
  3. sqlstr = "select * from Ploy 
    where ployID="
     & pid  
  4. dbhlp.FillDataTable(sqlstr, 
    objds, "Ploy")  
  5. sqlstr = "select * from PForeign 
    where ployID="
     & pid  
  6. dbhlp.FillDataTable(sqlstr, 
    objds, "PForeign")  
  7. Dim exl As New Excel.Application  
  8. exl.Visible = True 
  9. exl.DisplayAlerts = True 
  10. exl.WindowState = Excel.XlWindow
    State.xlMaximized  
  11. 'Dim wb As Excel.Workbook = 
    exl.Workbooks.Open(Application.
    StartupPath & "\print.xls")  
  12. 'Dim ws As Excel.Worksheet = 
    wb.Worksheets("prt")  
  13. Dim wb As Excel.Workbook = 
    exl.Workbooks.Add()  
  14. Dim ws As Excel.Worksheet = 
    wb.Worksheets.Item(1)  
  15. Dim Rng As Excel.Range  
  16. Rng = ws.Columns(1)  
  17. Rng.ColumnWidth = 16 
  18. Rng = ws.Columns(2)  
  19. Rng.ColumnWidth = 46 
  20. Rng = ws.Columns(3)  
  21. Rng.ColumnWidth = 16 
  22. Dim dr As ploy.PloyRow  
  23. dr = objds.Ploy.Rows(0)  
  24. Try  
  25. Rng = ws.Range("A1:A1", "C1:C1")  
  26. Rng.Cells.Merge()'合并单元格  
  27. Rng.Font.Name = "黑体" 
  28. Rng.Font.Size = "22" 
  29. Rng.HorizontalAlignment = -4108  
  30. Rng.VerticalAlignment = -4108  
  31. Rng.Value = dr.PSubject  
  32. Catch ex As Exception  
  33. End Try 

 

 

  1. Try  
  2. Rng = ws.Range("A2:A2", "C2:C2")  
  3. Rng.Cells.Merge()  
  4. Rng.Font.Name = "黑体" 
  5. Rng.Font.Size = "14" 
  6. Rng.HorizontalAlignment = -4108  
  7. Rng.VerticalAlignment = -4108  
  8. Rng.Value = "时间:" & dr.PTime  
  9. Catch ex As Exception  
  10. End Try 

 

 

  1. Try  
  2. Rng = ws.Range("A3:A3", "C3:C3")  
  3. Rng.Cells.Merge()  
  4. Rng.Font.Name = "黑体" 
  5. Rng.Font.Size = "14" 
  6. Rng.HorizontalAlignment = -4108  
  7. Rng.VerticalAlignment = -4108  
  8. Rng.Value = "地点:" & dr.Place  
  9. Catch ex As Exception  
  10. End Try 

 

 

 

  1. Dim drF As ploy.PForeignRow  
  2. Dim i, rngi As Integer  
  3. Dim rngs, cellB, cellE As String  
  4. rngi = 5 + objds.PForeign.Rows.Count  
  5. cellB = "A5:A5" 
  6. cellE = "C" & rngi.ToString & 
    ":C" & rngi.ToString  
  7. Rng = ws.Range(cellB, cellE)  
  8. Rng.Font.Name = "仿宋_GB2312" 
  9. Rng.Font.Size = "16" 
  10. Rng.Borders.LineStyle = 1 
  11. Rng.HorizontalAlignment = -4108  
  12. Rng.VerticalAlignment = -4108  
  13. Rng = ws.Range("A5")  
  14. Rng.Value = "领馆" 
  15. Rng = ws.Range("B5")  
  16. Rng.Value = "出席人员" 
  17. Rng = ws.Range("C5")  
  18. Rng.Value = "职衔" 
  19. rngi = 6 
  20. For i = 0 To objds.PForeign.
    Rows.Count - 1  
  21. drF = objds.PForeign.Rows(i)  
  22. Rng = ws.Range("A" & rngi.ToString)  
  23. Rng.Value = drF.PConsulate  
  24. Rng = ws.Range("B" & rngi.ToString)  
  25. Rng.Value = drF.PName  
  26. Rng = ws.Range("C" & rngi.ToString)  
  27. Rng.Value = drF.PRank  
  28. rngirngi = rngi + 1  
  29. Next  
  30. 'wb.Save()  
  31. 'If Not exl Is Nothing Then  
  32. ' exl.Workbooks.Close()  
  33. ' exl.Quit()  
  34. ' System.Runtime.InteropServices.
    Marshal.ReleaseComObject(exl)  
  35. 'End If  
  36. 'If Not ws Is Nothing Then  
  37. ' System.Runtime.InteropServices.
    Marshal.ReleaseComObject(ws)  
  38. 'End If  
  39. 'ws = Nothing 
  40. 'exl = Nothing 
  41. 'GC.Collect()  
  42. End Sub  
  43. End Class 

 

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

责任编辑:曹凯 来源: 博客园
相关推荐

2010-01-12 10:19:02

VB.NET操作GDI

2009-10-29 13:38:05

VB.NET Shar

2010-01-08 18:10:44

VB.NET实现任务栏

2010-01-07 11:07:20

VB.NET读取INI

2009-11-02 10:42:04

VB.NET EXCE

2010-01-11 10:34:41

VB.NET图像操作

2009-10-30 16:40:04

VB.NET Inte

2009-11-02 10:30:37

VB.NET EXCE

2010-01-11 15:54:48

VB.NET操作缩放图

2009-10-29 15:50:49

VB.NET Exce

2009-10-16 13:26:53

VB.NET Exce

2009-10-29 09:06:26

VB.NET Web

2009-11-10 15:18:35

VB.NET封面

2009-10-29 14:16:32

VB.NET读写文本文

2009-10-27 11:03:16

VB.NET文件夹操作

2010-01-08 18:16:52

VB.NET变量

2010-01-13 17:47:59

VB.NET拖放

2010-01-14 13:59:01

2009-10-20 17:38:20

VB.NET exce

2009-10-26 18:11:47

VB.NET调用Exc
点赞
收藏

51CTO技术栈公众号