Yeni Bir Excel dosyası oluşturmak.

[Orion1]

Mrb.
Kod ile Sezar Klasöründe Deneme.xls isminde ("C:\Sezar\Deneme.xls") yeni bir excel dosyası oluşturmak istiyorum.
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Haluk]

Sub Test()
    Dim NewWb As Workbook
    Set NewWb = Workbooks.Add
    NewWb.SaveAs Filename:="C:\Sezar\Deneme.xls"
End Sub

 

[Orion1]

Sub Test()
    Dim NewWb As Workbook
    Set NewWb = Workbooks.Add
    NewWb.SaveAs Filename:="C:\Sezar\Deneme.xls"
End Sub

Sn. Haluk arkadaşıma Teşekkür ederim.
İyi Akşamlar.
:hey: