Sayın hocalarım EK'teki dosyada EK formunda seçtiğim yıl ve aya göre verileri Excele gönderiyorum. Program oluşturduğu Excel dosyasına verileri gönderiyor. Benim yapmak istediğim LBExcel modülünde dosya oluşturma kodlarının Excel dosya ismini EK formundaki açılır kutulardan YIL ve AY şeklinde oluşturmasını istiyorum.
Excel Dosya Adı
selam
excel modulunuzdeki kodları alttaki ile değiştirin
excel modulunuzdeki kodları alttaki ile değiştirin
On Error GoTo ExAcHata
'-------------------------------------------------
Dim yol, deger As String
yol = Application.CodeProject.Path 'excel dosyasının kaydedileceği yol
deger = "ayd yapı" 'excel dosyasının ve sayfasının adı
Kill yol & deger & ".xls" 'excel dosyasının varsa sil
'-------------------------------------------------
ExAc = False
Set ExC = New Excel.Application
ExC.Visible = True
Set ExW = ExC.Workbooks.Add
Set ExS = ExW.Worksheets(1)
ExAc = True
'-------------------------------------------------
With ExC
.Sheets("Sayfa2").Delete 'sayfa sil
.Sheets("Sayfa3").Delete 'sayfa sil
.Sheets("Sayfa1").Name = deger 'sayfa adı
ExC.Application.ActiveWorkbook.SaveAs FileName:=yol & deger & ".xls"
End With
'-------------------------------------------------
Exit Function
ExAcHata:
ExAc = False
Set ExC = Nothing
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Sayın aydın3838, biraz geç oldu ama ilginiz için çoook teşekkür ederim. Ellerinize sağlık.
Konuyu Okuyanlar: 1 Ziyaretçi