VBA代码：将Excel单元格区域转换成网页中的表格

标签：VBA

这段代码自forum.ozgrid.com搜集，可以将指定的单元格区域转换成Web网站中的表格代码，供有兴趣的朋友参考。

代码如下：

代码语言：javascript

复制

Sub Create_Web_Table(BB_Range As Range, Optional BBHeader As Boolean = True)
 Dim BB_Row As Range
 Dim BB_Cells As Range
 Debug.Print "[table=" & """" & "class: grid" & """" & "]"
 If BBHeader Then
   Debug.Print "[tr][td][/td]"
   For Each BB_Cells In BB_Range.Rows(1).Cells
     Debug.Print "[td]" & Chr$(BB_Cells.Column + 64) & "[/td]"
   Next BB_Cells
   Debug.Print "[/tr]"
 End If
 For Each BB_Row In BB_Range.Rows
   Debug.Print "[tr]"
   If BBHeader Then
     Debug.Print "[td]" & BB_Row.Row & "[/td]"
   End If
   For Each BB_Cells In BB_Row.Cells
     Debug.Print "[td]" & BB_Cells.Text & "[/td]"
   Next BB_Cells
   Debug.Print "[/tr]"
 Next BB_Row
 Debug.Print "[/table]"
End Sub

例如，如果要将当前工作表单元格区域A1:D3转换成网站表格代码，测试代码如下：

Sub test()

Create_Web_Table Range("A1:D3"), True

End Sub

这会在立即窗口中生成网页表格的代码。然后，将立即窗口中生成的Web代码粘贴到所需要的地方。