Excel Dosya Adı
Tarih
15/03/2014 22:27
Konu Sahibi
idrisy
Yorumlar
2
Okunma
1056
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....
171
27/12/2008
11
Osmaniye
Ofis 2003
29/03/2017,18:26
Çö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
15/12/2016,19:28
Çözüldü 
Sponsor Reklam
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....
171
27/12/2008
11
Osmaniye
Ofis 2003
29/03/2017,18:26
Çö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
  Dosya Kontrolü turalsitkituralvolkan 2 105 19/04/2017, 09:30 turalsitkituralvolkan
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 325 27/03/2017, 11:18 atoz112
  Excel,Exe sürüm 1.6 hatası hknct 22 426 05/03/2017, 12:38 ozanakkaya
  Listbox Verilerini Excel'e Aktarma İbrahim Şenol 5 217 27/02/2017, 19:12 İbrahim Şenol
  Excel'e Gönderirken Biçimlendirme husem 1 100 22/02/2017, 00:38 husem


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