Skip to main content

AccessTr.neT


Excel Dosyası Oluşturma

Excel Dosyası Oluşturma

Çözüldü #1
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
Cevapla
Çözüldü #2
Kod:
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
Çözüldü #3
Teşekkür ederim. Bu örnekten hareketle yapmak istediğim şeyi çözebilirim sanırım.
Cevapla
Çözüldü #4
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
Çözüldü #5
(11/08/2009, 14:16)siberonik yazdı: ---------------------------------------------------------------------
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.
Son Düzenleme: 11/08/2009, 14:52, Düzenleyen: siberonik.
Cevapla
Çözüldü #6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task