DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Auto_Open()
MyWB = "C:\A.xls"
Set NewXL = New Excel.Application
NewXL.Workbooks.Open MyWB
NewXL.Workbooks(Dir(MyWB)).Sheets(1).Range("A1") = 1
NewXL.Workbooks(Dir(MyWB)).Close SaveChanges:=True
NewXL.Quit
Set NewXL = Nothing
End Sub