HTML_Document Nesnesi

HTML_Document nesnesi HTML belgesi oluşturma için kullanılır. Oluşturma:

Dim HTMLDoc
Set HTMLDoc = Doc.CreateSObject("HTML_Document")

Create

• Dönüş Tipi: Void
• Parametreler:
• - title (String): Başlık
• - encoding (String): Encoding
• Açıklama: HTML belgesi oluşturur

GetHTMLSource / HTMLSource

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: HTML kaynak kodunu döndürür

AddBR / AddLineBreak / LineBreak

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Satır sonu ekler

LineBreaks

• Dönüş Tipi: Void
• Parametreler:
• - count (Integer): Satır sonu sayısı
• Açıklama: Birden fazla satır sonu ekler

Add_Styled_Text

• Dönüş Tipi: Void
• Parametreler:
• - text (String): Metin
• - style (String): Stil
• Açıklama: Stil ile metin ekler

Table_Begin

• Dönüş Tipi: Void
• Parametreler:
• - style (String): Tablo stili
• - columnCount (Integer): Sütun sayısı
• Açıklama: Tablo başlatır

Table_Header

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tablo başlık satırını başlatır

Table_Header_Column

• Dönüş Tipi: Void
• Parametreler:
• - content (Variant): İçerik
• - style (String): Stil
• Açıklama: Tablo başlık sütunu ekler

Table_Header_Column_Span

• Dönüş Tipi: Void
• Parametreler:
• - content (Variant): İçerik
• - style (String): Stil
• - colSpan (Integer): Sütun birleştirme
• - rowSpan (Integer): Satır birleştirme
• Açıklama: Birleştirilmiş tablo başlık sütunu ekler

Table_DataRow

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tablo veri satırını başlatır

Table_DataRow_Column

• Dönüş Tipi: Void
• Parametreler:
• - content (Variant): İçerik
• Açıklama: Tablo veri sütunu ekler

Table_DataRow_Column_Span

• Dönüş Tipi: Void
• Parametreler:
• - content (Variant): İçerik
• - colSpan (Integer): Sütun birleştirme
• - rowSpan (Integer): Satır birleştirme
• Açıklama: Birleştirilmiş tablo veri sütunu ekler

Table_End

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tablo kapatır

Örnek Kullanım:

Sub Makro1()
    Dim HTMLDoc
    Set HTMLDoc = Doc.CreateSObject("HTML_Document")
    HTMLDoc.Create "Rapor", "UTF-8"
    HTMLDoc.Table_Begin "border=1", 2
    HTMLDoc.Table_Header
    HTMLDoc.Table_Header_Column "Stok Kodu", ""
    HTMLDoc.Table_Header_Column "Stok Adı", ""
    HTMLDoc.Table_DataRow
    HTMLDoc.Table_DataRow_Column "STOK001"
    HTMLDoc.Table_DataRow_Column "Stok Adı 1"
    HTMLDoc.Table_End
    Dim HTML
    HTML = HTMLDoc.GetHTMLSource
    Doc.MsgBox "HTML: " & HTML
    Set HTMLDoc = Nothing
End Sub

---