ExcelOutput Nesnesi

ExcelOutput nesnesi Excel çıktısı oluşturma için kullanılır. Oluşturma:

Dim Excel
Set Excel = Doc.CreateSObject("ExcelOutput")

SheetBreak

• Dönüş Tipi: Void
• Parametreler:
• - sheetName (String): Sayfa adı
• Açıklama: Yeni Excel sayfası oluşturur

InitRowValues

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Satır değerlerini başlatır

SetRowValue_String

• Dönüş Tipi: Void
• Parametreler:
• - columnIndex (Integer): Sütun indeksi
• - value (String): Değer
• Açıklama: Satır değerini string olarak ayarlar

SetRowValue_Double

• Dönüş Tipi: Void
• Parametreler:
• - columnIndex (Integer): Sütun indeksi
• - value (Double): Değer
• Açıklama: Satır değerini double olarak ayarlar

LineOut

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Satırı Excel'e yazar

GrandTotalOut

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Genel toplamı yazar

SubTotalOut

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Alt toplamı yazar

SubTotalHeaderOut

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Alt toplam başlığını yazar

Show

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Excel dosyasını gösterir

Close

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

SetOrientation

• Dönüş Tipi: Void
• Parametreler:
• - orientation (String): Yönlendirme ("Portrait", "Landscape")
• Açıklama: Sayfa yönlendirmesini ayarlar

AddColumnDef

• Dönüş Tipi: Void
• Parametreler:
• - columnName (String): Sütun adı
• - width (Integer): Genişlik
• - alignment (Integer): Hizalama
• - format (String): Format
• Açıklama: Sütun tanımı ekler

TableB

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tablo başlangıcı

PageB_ReportHead_std1

• Dönüş Tipi: Void
• Parametreler:
• - title (String): Başlık
• Açıklama: Standart rapor başlığı ekler

GetFileName

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: Excel dosya adını döndürür

MaxSheetRowCount

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Maksimum sayfa satır sayısını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Excel
    Set Excel = Doc.CreateSObject("ExcelOutput")
    Excel.SheetBreak "Rapor"
    Excel.AddColumnDef "Stok Kodu", 15, 0, ""
    Excel.AddColumnDef "Stok Adı", 30, 0, ""
    Excel.TableB
    Excel.InitRowValues
    Excel.SetRowValue_String 0, "STOK001"
    Excel.SetRowValue_String 1, "Stok Adı 1"
    Excel.LineOut
    Excel.Show
    Dim DosyaAdi
    DosyaAdi = Excel.GetFileName
    Doc.MsgBox "Excel dosyası: " & DosyaAdi
    Set Excel = Nothing
End Sub

---