
|
... |
Option Explicit
Sub table_to_html()
Dim rng As Range, f As String
Dim row_ As Range, cell As Range
Set rng = Range("A1:C10") '<<<<< range della tabella da aggiustare
f = "c:users...desktop able.html" '<<<< percorso e nome di file da sistemare!!
Open f For Output As #1
Print #1, "
|
Option Explicit
Sub table_to_html()
Dim rng As Range, f As String
Dim row_ As Range, cell As Range
Set rng = Range("A1:C10") '<<<<< range della tabella da aggiustare
f = "c:users...desktop able.html" '<<<< percorso e nome di file da sistemare!!
Open f For Output As #1
Print #1, "< body >< table >"
For Each row_ In rng.Rows
Print #1, "< tr >"
For Each cell In row_.cells
Print #1, "< td >"; cell; "< /td >"
Next
Print #1, "< /tr >"
Next
Print #1, "< /table >< /body >"
Close #1
End Sub
|
