DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Workbook_Open()
Dim File_Path As String
File_Path = "C:\Desktop\Deneme.xlsx"
If Dir(File_Path) <> "" Then
Workbooks.Open File_Path, False, False
Else
MsgBox "Dosya bulunamadı!" & vbCrLf & vbCrLf & File_Path, vbCritical
End If
End Sub