VB.net richtextbox verilerini Excel 2007'e gönderme

[balanar]

Merhaba,

Visual Studio 2019'da ufak birşey var. RichTextBox1 içindeki verileri excel 2007'e nasıl aktarabiliriz daha önce calısma yapmış olan var mı?

 

[Muzaffer Ali]

Merhaba.
Normal exceldeki gibi yapılabiliyor.
Aşağıdaki kod RichTextBox1 deki metni c\test.xlsx adlı excel dosyasının Sayfa1 adlı sayfanın A1 hücresine yazar, kaydeder ve kapatır.

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim exApp As New Object
        Dim exWb As Object
        exApp = CreateObject("Excel.Application")
        exWb = exApp.workbooks.open("c:\test.xlsx")
        exWb.worksheets("Sayfa1").range("A1") = RichTextBox1.Text
        exWb.save()
        exApp.quit()
        exWb = Nothing
        exApp = Nothing
    End Sub

 

[balanar]

Teşekkür ediyorum hocam