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
Excel Dosyası Oluşturma
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
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
Descartes
Teşekkür ederim. Bu örnekten hareketle yapmak istediğim şeyi çözebilirim sanırım.
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
Descartes
(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ı
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.
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...
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
Descartes
Konuyu Okuyanlar: