Excel'deki bir tabloyu HTML tablo hâline dönüştürmek için bu kodları kullanabilirsiniz;
Sub Emre()
Dim Dosya, Tag_Ac$, Tag_Kapat$, Cells$, Evn As Range, i%, a%
Set Evn = Application.Intersect(ActiveSheet.UsedRange, Selection)
If Evn Is Nothing Then MsgBox "Export edecek bir şey yok.", 16: Exit Sub
Dosya = Application.GetSaveAsFilename(InitialFileName:="Evn.htm", _
fileFilter:="HTML Files(*.htm), *.htm")
If Dosya = False Then Exit Sub
Open Dosya For Output As #1
Print #1, "<HTML>"
Print #1, "<TABLE BORDER=1 CELLPADDING=3>"
For i = 1 To Evn.Rows.Count
Print #1, "<TR>"
For a = 1 To Evn.Columns.Count
Select Case Evn.Cells(i, a).HorizontalAlignment
Case xlHAlignLeft
Tag_Ac = "<TD ALIGN=LEFT>"
Case xlHAlignCenter
Tag_Ac = "<TD ALIGN=CENTER>"
Case xlHAlignGeneral
If IsNumeric(Evn.Cells(i, a)) Then
Tag_Ac = "<TD ALIGN=RIGHT>"
Else
Tag_Ac = "<TD ALIGN=LEFT>"
End If
Case xlHAlignRight
Tag_Ac = "<TD ALIGN=RIGHT>"
End Select
Tag_Kapat = "</TD>"
If Evn.Cells(i, a).Font.Bold Then
Tag_Ac = Tag_Ac & "<B>"
Tag_Kapat = "</B>" & Tag_Kapat
End If
If Evn.Cells(i, a).Font.Italic Then
Tag_Ac = Tag_Ac & "<I>"
Tag_Kapat = "</I>" & Tag_Kapat
End If
Cells = Evn.Cells(i, a).Text
Print #1, Tag_Ac & Cells & Tag_Kapat
Next a
Print #1, "</TR>"
Next i
Print #1, "</TABLE>"
Print #1, "</HTML>"
Close #1
MsgBox Evn.Count & " hücre buraya export edildi. " & Dosya
End Sub