• 04-03-2022, 22:11:55
    #1
    Merhaba,

    RichTextBox içeriğini excele aktarmak istiyorum. Bu konuda daha önce calısma yapmış olan var mı nasıl yapabiliriz?
  • 04-03-2022, 22:20:10
    #2
    Basit bir örnek
    Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
        Dim workbook As Workbook = New Workbook()
        Dim sheet As Worksheet = workbook.Worksheets(0)
     
        Dim fontBold As ExcelFont = workbook.CreateFont()
        fontBold.IsBold = True
     
    
        Dim fontUnderline As ExcelFont = workbook.CreateFont()
        fontUnderline.Underline = FontUnderlineType.Single
        
        Dim fontColor As ExcelFont = workbook.CreateFont()
    
        fontColor.KnownColor = ExcelColors.Green
    
        Dim richText As RichText = sheet.Range("A1").RichText
        richText.Text = "Bold and underlined and colored text"
        richText.SetFont(0,3,fontBold)
        richText.SetFont(9,18,fontUnderline)
        richText.SetFont(24,30,fontColor)
    
        workbook.SaveToFile("Sample.xls")
        ExcelDocViewer(workbook.FileName)
    End Sub
  • 04-03-2022, 23:01:54
    #3
    en basitinden textboxdaki verileri .xls olarak kaydet tab ile ayrıştırılmış sütunlar varsa tablo olarak açılır