Excel Dosyası Oluşturma
Tarih
11/08/2009 14:16
Konu Sahibi
siberonik
Yorumlar
11
Okunma
3156
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ü 
Sponsor Reklam

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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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
  Borçlu Listesi Oluşturma esmerim33 12 258 13/05/2017, 12:29 atoz112
  Özel Araç Çubuğu Oluşturma husem 8 302 13/05/2017, 12:24 atoz112
  Kişisel Kayıt Paneli Oluşturma Hk. volger 9 348 22/04/2017, 19:53 atoz112
  Accesste Resime Tıklama Ve Ses Dosyası Çalıştırma Nasıl Yapılır? mehami 2 126 14/04/2017, 00:26 mehami
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 307 27/03/2017, 11:18 atoz112


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