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
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...
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
(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.
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...