Makro ile Dosya Açma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Kodu çalıştırdığınızda alacağını görüntü aşağıdaki gibi olacaktır:
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Dosya_Al()
Dim Dosya_Tipi, Baslik As String
Dim Varsayilan_Tip_No As Integer
Dim Dosya_Ad As Variant
Dosya_Tipi = "Excel Files (*.xlsx),*.xlsx," & "All Files (*.*),*.*"
Varsayilan_Tip_No = 2
Baslik = "Dosya Seçin"
Dosya_Ad = Application.GetOpenFilename(Dosya_Tipi, Varsayilan_Tip_No, Baslik)
If Dosya_Ad = False Then
MsgBox "Dosya seçilmedi."
Else
MsgBox Dosya_Ad & " dosyasını seçtiniz."
End If
End SubAçıklama
Excel'de makrolar ile dosya açmak isterseniz, üstteki kodlarımızı referans olarak kullanabilirsiniz.Kodu çalıştırdığınızda alacağını görüntü aşağıdaki gibi olacaktır:
Faydalanılması temennisiyle
