Dosya Uzantısı, File Extension

Dosya Uzantısı, File Extension

Bu konumuzda dosya uzantiniza gore islem yapabilirmisiniz diye inceledik ve kendi calistigimiz dosyanın uzantısına göre işlem yaptık. Kendi çalıştığınız dosya için çok mantıklı bir çalısma değil tabiki ama dışarıdan alacağınız bir  dosya için etkili olabilir düşüncesindeyim.

Arr = Array(“xls”, “xlsx”, “xlsm”) seklinde yazacağımız diziye izin verdiğimiz dosya uzantılarını girmekteyiz, kodlar üzerinde de bu konuda açıklamada bulunduk.

İzin verilen dosya uzantıları için istenilen işlemin yapılmasını sağlayan bir kod yazmak istedik bu kodu ve örnek dosyayı inleyebilirsiniz.

Sub dosya_uzantisi()

Dim Uzantim
Dim Arr() As Variant
Dim dizi_sonucu As Variant

dosyam = ActiveWorkbook.Name
'Dosya uzantisini alma
Uzantim = Mid(dosyam, InStrRev(dosyam, ".") + 1)

Arr = Array("xls", "xlsx", "xlsm") 'Izin vermek istediginiz uzantilari seciniz

On Error Resume Next
dizi_sonucu = Application.WorksheetFunction.Match(Uzantim, Arr(), 0)

If Not IsEmpty(dizi_sonucu) Then MsgBox Uzantim 'Izin verdiginiz dosya uzantisina uyuyorsa islemi yap

End Sub

Dosya Uzantısı File Extension

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 9 =