彰化一整天的論壇

 找回密碼
 立即註冊
查看: 1490|回復: 2

將Excel表格內容變成html語法

[複製鏈接]
發表於 2014-5-1 13:24:29 | 顯示全部樓層 |閱讀模式
  1. Public Function MakeHTMLTable(rInput As Range, Optional bHeaders As Boolean = True) As String
  2.    
  3.     Dim rRow As Range
  4.     Dim rCell As Range
  5.     Dim sReturn As String
  6.    
  7.     sReturn = “<table>”
  8.    
  9.     If bHeaders Then
  10.         sReturn = sReturn & “<tr><td> </td>”
  11.         
  12.         For Each rCell In rInput.Rows(1).Cells
  13.             sReturn = sReturn & “<td>” & Chr$(rCell.Column + 64) & “</td>”
  14.         Next rCell
  15.         
  16.         sReturn = sReturn & “</tr>”
  17.     End If
  18.    
  19.     For Each rRow In rInput.Rows
  20.         sReturn = sReturn & “<tr>”
  21.         
  22.         If bHeaders Then
  23.             sReturn = sReturn & “<td>” & rRow.Row & “</td>”
  24.         End If
  25.         
  26.         For Each rCell In rRow.Cells
  27.             sReturn = sReturn & “<td>” & rCell.Text & “</td>”
  28.         Next rCell
  29.         
  30.         sReturn = sReturn & “</tr>” & vbNewLine
  31.     Next rRow
  32.    
  33.     sReturn = sReturn & “</table>”
  34.    
  35.     MakeHTMLTable = sReturn
  36.    
  37. End Function
複製代碼


資料來源:http://dailydoseofexcel.com/arch ... table-from-a-range/
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 14:56 , Processed in 0.117064 second(s), 18 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表