日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

如果我們想在VB.NET環(huán)境下進(jìn)行Excel的操作的話，應(yīng)當(dāng)如何正確的進(jìn)行呢？關(guān)于VB.NET操作Excel這一問(wèn)題可能對(duì)于沒(méi)有太多開發(fā)經(jīng)驗(yàn)的新手來(lái)說(shuō)有點(diǎn)困難。今天在這里就為大家詳細(xì)介紹一下這一應(yīng)用技巧，讓大家有一個(gè)詳盡的認(rèn)識(shí)。#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

 
 
 

  
  
  
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)代碼編寫方法就為大家介紹到這里。

本文名稱：教你迅速掌握VB.NET操作Excel
標(biāo)題URL：http://www.dlmjj.cn/article/dhhodpc.html