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.
selam
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
Sayın aydın3838, biraz geç oldu ama ilginiz için çoook teşekkür ederim. Ellerinize sağlık.