Yeni Excel Dosyası Açıp Veri Yazmak

[Bülent]

Aşağıdaki kodlar ile yeni bir Excel çalışma kitabı oluşturulup, hücrelere veri yazılabilir, düzenleme yapılabilir:

Kod Seç Expand

Sub YeniDosyaOlusturVeriYaz()
Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True
objExcel.Workbooks.Add

objExcel.Cells(1, 1).Value = "ExcelSitesi.Com"
objExcel.Cells(1, 1).Interior.Color = vbGreen
objExcel.Cells(1, 1).Font.Color = vbWhite

End Sub