Excel Dosyası Oluşturma
Tarih
11/08/2009 14:16
Konu Sahibi
siberonik
Yorumlar
11
Okunma
3048
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



siberonik
Üye
Kullanici Avatari
Üye
14
4
20/05/2009
0
İstanbul
Ofis 2003
02/04/2011,19:02
Çözüldü 
Arkadaşlar merhaba

---------------------------------------------------------------------
Dim objExcel As Object
Dim objWorkbook As Object

Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls")
---------------------------------------------------------------------

Bu şekilde varolan bi Excel dosyasını açıyoruz. Peki Excel dosyası oluşturmak için yazmamız gereken kod nedir?
Forumda aradım ama bulamadım. Varsa da kusura bakmayın. Teşekkürler
siberonik, 20-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ExC As Excel.Application
Dim ExW As Workbook
Dim ExS As Worksheet

Public Function ExAc() As Boolean
  On Error GoTo ExAcHata
  ExAc = False
  Set ExC = New Excel.Application
  ExC.Visible = True
  Set ExW = ExC.Workbooks.Add
  Set ExS = ExW.Worksheets(1)
  ExAc = True
  Exit Function
ExAcHata:
  ExAc = False
  Set ExC = Nothing
End Function


Örnek için Link
Seçerek Excele Aktarmak - Bilgisayarci 


Yukarıdaki kod,örneği de incelersen, boş bir Excel dosyası açar. Kapatırken de uyarı verir saklamak ister misiniz diye. Eğer saklamak istersen dosya adını yolunu verirsin,eğer istemezsen kapatırsın silinir gider...

Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla


siberonik
Üye
Kullanici Avatari
Üye
14
4
20/05/2009
0
İstanbul
Ofis 2003
02/04/2011,19:02
Çözüldü 
Teşekkür ederim. Bu örnekten hareketle yapmak istediğim şeyi çözebilirim sanırım.
siberonik, 20-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Olmazsa şayet, yapmak istediğiniz şeyin olduğu basit bir örnek atarsanız gerekli işlemler için de yardımcı olabilirim
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla


siberonik
Üye
Kullanici Avatari
Üye
14
4
20/05/2009
0
İstanbul
Ofis 2003
02/04/2011,19:02
Çözüldü 
(11/08/2009, 14:16)siberonik Adlı Kullanıcıdan Alıntı: ---------------------------------------------------------------------
Dim objExcel As Object
Dim objWorkbook As Object

Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls")
---------------------------------------------------------------------

Kırmızı renklendirdiğim satır gibi yeni Excel dosyası oluşturabileceğim bir yapı varmı. open komutu yerine Add yazıp deendim ama olmadı Img-grin
Tam olarak yapmak istediğim şey random isimli bir dosya oluşturma sonra bu kod ile açıp tablodan gerekli kayıtları dosyaya geçirip biçimlemesini yapmak. Buradaki tek sorunum Excel dosyası oluşturmak, diğerlerinde sıkıntı yok.
siberonik, 20-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Böyle gidersek sanırım bi yere varamayacağız. Tam olarak anlayamıyorum çünkü. Boş bir Excel değil istediğiniz, farklı bir şey. Örnek ekleyip anlatırsanız kısa zamanda çözeriz.

Mesajı düzeltmişsiniz sanırım. Size verdiğim örnekte gerekli biçimlendirme kodları da var. Birleştirme,cell'e değer ekleme,Font size değiştirme,bold yapma...
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Rapor oluşturma ertans 2 49 6 saat önce ertans
  Personel Veritabanı oluşturma ? adebisi 3 161 17/11/2016, 12:45 atoz112
  Excel Formülleri hk. murat dikme 5 157 10/11/2016, 04:59 ozanakkaya
  Filtreleme Yaparak Excel'e Export Etme! Rıdvan Üçok 3 112 06/11/2016, 13:53 atoz112
  Excel Dosyasında veri alma idrisy 3 100 04/11/2016, 22:00 idrisy


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