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