+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Dosyası Oluşturma (/konu-excel-dosyasi-olusturma.html)
Sayfalar:
1
2
Excel Dosyası Oluşturma - siberonik - 11/08/2009
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
Cvp: Excel Dosyası Oluşturma - Bilgisayarcı - 11/08/2009
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 FunctionSeç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...
Cvp: Excel Dosyası Oluşturma - siberonik - 11/08/2009
Teşekkür ederim. Bu örnekten hareketle yapmak istediğim şeyi çözebilirim sanırım.
Cvp: Excel Dosyası Oluşturma - Bilgisayarcı - 11/08/2009
Olmazsa şayet, yapmak istediğiniz şeyin olduğu basit bir örnek atarsanız gerekli işlemler için de yardımcı olabilirim
Cvp: Excel Dosyası Oluşturma - siberonik - 11/08/2009
(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.
Cvp: Excel Dosyası Oluşturma - Bilgisayarcı - 11/08/2009
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...