AccessTr.neT

[attachment=20768]

VB.Net ile Bir form üzerindeki değerleri Excel dosyasına kaydetme denemesi yapıyorum.
Örnek ektedir ve içerikler alıntıdır.
Şimdi excele kaydet dediğim zaman resimdeki gibi kaydedeceğim dosya adı boş gelmesin ve buraya dosya adı otomatik gelsin istiyorum. Her seferinde kaydedeceğim Excel dosyasının adını girmektense otomatik olarak dosya adı yazılarak gelsin ve kaydetsin istiyorum. Yardımlarınızı beklerim. Saygılar.

Sub excel_kaydet()

        Dim a As New SaveFileDialog

        a.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop

        a.Title = "Excel’e Export Et"

        a.Filter = "Excel Dosyaları | *.xlsx"

        

        '-------------------------------------------

        a.FileName = "AccessTr.Net.xls"

        '-------------------------------------------



        If a.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim ExcelApp As Excel.Application

            Dim ExcelWorkbook As Excel.Workbook

            Dim ExcelSheet As Excel.Worksheet

            Dim MyFileName As String = Nothing

            MyFileName = a.FileName

            ExcelApp = CreateObject("Excel.Application")

            ExcelWorkbook = ExcelApp.Workbooks.Add

            ExcelSheet = ExcelWorkbook.Worksheets(1)

            ExcelSheet.Cells(1, 1).Value = "Adı"

            ExcelSheet.Cells(1, 2).Value = "Soyadı"







            ExcelSheet.Cells(2, 1).Value = TextBox2.Text

            ExcelSheet.Cells(2, 2).Value = TextBox3.Text





            ExcelWorkbook.SaveAs(MyFileName) 'örneğin dosya adı = "deneme" olacak. KAYIT EDECEĞİM DOSYA ADINI SANIRIM BURALARA BİR YERE YAZACAĞIZ AMA NEREYE 

            ExcelWorkbook.Save()

            ExcelWorkbook.Close()

            ExcelApp.Quit()



            MsgBox("Excel Dosyası Oluşturuldu", MsgBoxStyle.Information, "Bilgi")

        End If

    End Sub

Filename özelliği ile belirtebilirsiniz. Sizin kodunuza yaptığım eklemeyi yukarıda inceleyebilirsiniz.

Teşekkürler Sayın alpeki99 hocam. Ellerinize sağlık.