Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/03/2014 22:27
Konu Sahibi
idrisy
Yorumlar
2
Okunma
1236
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....
176
27/12/2008
11
Osmaniye
Ofis 2003
21/07/2017,01:47
Çö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
260
20/12/2009
8
Kayseri
Ofis 2003
04/09/2017,15:22
Çö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....
176
27/12/2008
11
Osmaniye
Ofis 2003
21/07/2017,01:47
Çö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
Çözüldü Access Den Excel Çıktısı Alma Sorunu estapan 13 917 30/05/2017, 14:12 atoz112
Çözüldü Excel Den Veri Alma 2003 estapan 9 510 30/05/2017, 11:59 estapan
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 12 956 26/05/2017, 17:17 ozanakkaya
Çözüldü Dosya Kontrolü turalsitkituralvolkan 2 254 19/04/2017, 09:30 turalsitkituralvolkan
Çözüldü Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 895 27/03/2017, 11:18 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.