Excel Dosya Adı
Tarih
15/03/2014 22:27
Konu Sahibi
idrisy
Yorumlar
2
Okunma
1010
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



idrisy
Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
170
27/12/2008
11
Osmaniye
Ofis 2003
Bugün,01:11
Çözüldü 
Sponsor Reklam
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.


Ek Dosyalar
.rar   ExceleGonder.rar (Dosya Boyutu: 87,34 KB / İndirme Sayısı: 11)
Cevapla

aydın3838
Destek Ekibi
Kullanici Avatari
Destek
256
20/12/2009
8
Kayseri
Ofis 2003
15/12/2016,19:28
Çözüldü 
selam
excel modulunuzdeki kodları alttaki ile değiştirin

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  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

idrisy
Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
170
27/12/2008
11
Osmaniye
Ofis 2003
Bugün,01:11
Çözüldü 
Sponsor Reklam
Sayın aydın3838, biraz geç oldu ama ilginiz için çoook teşekkür ederim. Ellerinize sağlık.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Accessten excel bağlantısı ile veri alırken parola hatası. Mecnun24 8 247 02/01/2017, 20:11 Mecnun24
  sorgunun excel olarak alınması koruyucu 3 178 08/12/2016, 12:15 atoz112
  Dosya konumunu alma tufanbal 7 234 02/12/2016, 10:48 tufanbal
  Klasöre kaydederken,Dosya Adını yazarak yedeklemek musteri53 11 447 18/11/2016, 23:11 ozanakkaya
  Excel Formülleri hk. murat dikme 5 211 10/11/2016, 04:59 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya