Dim Ex As Excel.Application
Set Ex = New Excel.Application
With Ex
.Visible = True 'Görünmesini istemiyorsak False
.Workbooks.Add 'Yeni bir çalışma sayfası oluşturmak için kullanırız.
.Range("c4").Value = me.alan1
.Range("c5").Value = me.alan2
.Range("c6").Value = me.alan3
.Range("I4").Value = me.alan4
.Range("I5").Value = me.alan5
End With

bu kod size fikir verecektir
yalnız vb referanslarından Microsoft Excel 11.0 Object Library nin seçili olması gerekmektedir. bu office sürümüne göre 10.0 olabilir.