Excel Dosya Adı
Tarih
15/03/2014 22:27
Konu Sahibi
idrisy
Yorumlar
2
Okunma
999
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....
164
27/12/2008
11
Osmaniye
Ofis 2003
07/12/2016,11:42
Çözüldü 
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
06/07/2016,00:39
Çö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....
164
27/12/2008
11
Osmaniye
Ofis 2003
07/12/2016,11:42
Çözüldü 
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
  sorgunun excel olarak alınması koruyucu 3 133 08/12/2016, 12:15 atoz112
  Dosya konumunu alma tufanbal 7 137 02/12/2016, 10:48 tufanbal
  Klasöre kaydederken,Dosya Adını yazarak yedeklemek musteri53 11 324 18/11/2016, 23:11 ozanakkaya
  Excel Formülleri hk. murat dikme 5 160 10/11/2016, 04:59 ozanakkaya
  Filtreleme Yaparak Excel'e Export Etme! Rıdvan Üçok 3 114 06/11/2016, 13:53 atoz112


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