Makro yazarken dosya yolunu kodun içine gömmek (C:\Dosya.xlsx) risklidir. Dosya taşınırsa kod patlar. Bunun yerine kullanıcıya Windows dosya seçme penceresi açtırın.
Örnek Kod
Sub DosyaSec()
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Lütfen bir Excel dosyası seçin"
.Filters.Add "Excel Dosyaları", "*.xlsx"
If .Show = -1 Then
MsgBox "Seçilen dosya: " & .SelectedItems(1)
Else
MsgBox "Dosya seçilmedi."
End If
End With
End Sub
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Lütfen bir Excel dosyası seçin"
.Filters.Add "Excel Dosyaları", "*.xlsx"
If .Show = -1 Then
MsgBox "Seçilen dosya: " & .SelectedItems(1)
Else
MsgBox "Dosya seçilmedi."
End If
End With
End Sub
Bu kod, seçilen dosyanın yolunu hafızaya alır, sonra bu yolla istediğiniz işlemi yapabilirsiniz.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap