AccessTr.neT
Excel Dosya Adı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Dosya Adı (/konu-excel-dosya-adi.html)



Excel Dosya Adı - idrisy - 15/03/2014

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.


Cvp: Excel Dosya Adı - aydın3838 - 16/03/2014

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



Cvp: Excel Dosya Adı - idrisy - 20/03/2014

Sayın aydın3838, biraz geç oldu ama ilginiz için çoook teşekkür ederim. Ellerinize sağlık.