Makro ile Dosya Açma
17 Haziran 2021
2881
Makro ile Dosya Açma isimli kod, herhangi bir dosyayı makroları kullanarak Excel üzerinden nasıl kolayca açabileceğinizi öğretmektedir.
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 SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
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:
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Sayfayı Hızlı Çoğaltma | Ctrl Sürükle |
| Yeni Kitap Oluşturma | Ctrl N |
| Son İşlemi Tekrar Etme | F4 |
| Kopyala Kısayolu | Ctrl C |
| Eğik Yazdırma | Ctrl T |