Skip to main content

AccessTr.neT


Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek

Formdaki verileri adını belirttiğim Excel Dosyasına Kaydetmek

Çözüldü #1
.rar exceldoyasıoluşturma.rar (Dosya Boyutu: 559,87 KB | İndirme Sayısı: 33)

[Resim: do.php?img=4402]
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.
Cevapla
Çözüldü #2

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 Img-grin
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Teşekkürler Sayın alpeki99 hocam. Ellerinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task