Excel Dosyası Oluşturma
Tarih
11/08/2009 14:16
Konu Sahibi
siberonik
Yorumlar
11
Okunma
3115
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
(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
  Veri Güncelleme ve Tarihçe Oluşturma Doğan Uludüz 4 100 13/02/2017, 18:55 Doğan Uludüz
  Dinamik Excel İle Sorgu Cevabı Almak dufrety 6 75 08/02/2017, 13:02 dufrety
  Raporu Excel'e aktarma nightashes 10 314 31/01/2017, 10:09 nightashes
  Accessten excel bağlantısı ile veri alırken parola hatası. Mecnun24 8 313 02/01/2017, 20:11 Mecnun24
  iki tablo arasında girilen veriyi ikinci tabloda alan olarak oluşturma yardım bilservisci 8 285 15/12/2016, 11:49 atoz112


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