Skip to main content

AccessTr.neT


Excel Dosya Adı

Excel Dosya Adı

Çözüldü #1
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.
.rar ExceleGonder.rar (Dosya Boyutu: 87,34 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #2
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
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
Sayın aydın3838, biraz geç oldu ama ilginiz için çoook teşekkür ederim. 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