+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek (/konu-formdaki-verileri-adini-belirttigim-excel-dosyasina-kaydetmek.html)
Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek - umutakkaya - 07/07/2014
exceldoyasıoluşturma.rar
(Dosya Boyutu: 559,87 KB | İndirme Sayısı: 33)
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.
Cvp: Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek - alpeki99 - 08/07/2014
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.
Cvp: Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek - umutakkaya - 08/07/2014
Teşekkürler Sayın alpeki99 hocam. Ellerinize sağlık.