bl双性强迫侵犯h_国产在线观看人成激情视频_蜜芽188_被诱拐的少孩全彩啪啪漫画

VB.NET如何操作Excel

這篇文章主要為大家展示了“VB.NET如何操作Excel”，內容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領大家一起研究并學習一下“VB.NET如何操作Excel”這篇文章吧。

成都創新互聯-專業網站定制、快速模板網站建設、高性價比寧陜網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式寧陜網站制作公司更省心,省錢,快速模板網站建設找我們，業務覆蓋寧陜地區。費用合理售后完善，10年實體公司更值得信賴。

VB.NET操作Excel代碼

  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 = "時間：" & 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 = "地點：" & dr.Place  Catch ex As Exception  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”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注創新互聯行業資訊頻道！

新聞標題：VB.NET如何操作Excel
文章網址：http://vcdvsql.cn/article30/gghepo.html

成都網站建設公司_創新互聯，為您提供云服務器、域名注冊、微信小程序、網站內鏈、定制網站、微信公眾號

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯

成都做網站