Resim yolu tarifi

[58Muhendis58]

Sayın ustalarım raporlama hazırladığım bir basit excel uygulama var. Uygulama şirket ortak klasöründe bulunuyor. klasör içerisine uygulama ve uygulamanın bulunduğu dosyada resimler ekleyip rapor maddelerine ilişkin resimleri çağırıyoruz. sormak istediğim her bilgisayarda ortak dosya yolu ismi farklı çıkıyor. dolayıası ile resimler sadece bende geliyor. benim istediğim şu

"W:\İSG 2020\SAHA DENETİMİ VE RAPORLAMA\res\"&M1&".JPG" dosya yolu bu
burada W harfi her bilgisayarda farklı olduğu için bu yola W veya Y veya X diyebilme imkanı var mı?
ikincisi Sondaki .JPG yanına PNG vs uzantılarını nasıl ekleriz.

Saygılar.

 

[58Muhendis58]

yokmu yardım edecek bir kul

 

[Korhan Ayhan]

Merhaba,

Kısayolu var mı bilmiyorum ama döngüyle harfler kontrol edilerek dosyanın yolunu tespit edebilirsiniz.

Option Explicit

Sub Test()
    Dim Yol As String, X As Byte, Y As Byte, Uzanti As Variant

    Yol = ":\İSG 2020\SAHA DENETİMİ VE RAPORLAMA\res\" & Range("M1").Value
    Uzanti = Array(".JPG", ".PNG")

    For X = 65 To 90
        For Y = LBound(Uzanti) To UBound(Uzanti)
            If Dir(Chr(X) & Yol & Uzanti(Y)) <> "" Then
                Yol = Chr(X) & Yol & Uzanti(Y)
                MsgBox Yol
                Exit For
            End If
        Next
    Next
End Sub

 

[58Muhendis58]

Korhan by teşekkür ederim

 

[58Muhendis58]

Merhaba,

Kısayolu var mı bilmiyorum ama döngüyle harfler kontrol edilerek dosyanın yolunu tespit edebilirsiniz.

Option Explicit

Sub Test()
    Dim Yol As String, X As Byte, Y As Byte, Uzanti As Variant

    Yol = ":\İSG 2020\SAHA DENETİMİ VE RAPORLAMA\res\" & Range("M1").Value
    Uzanti = Array(".JPG", ".PNG")

    For X = 65 To 90
        For Y = LBound(Uzanti) To UBound(Uzanti)
            If Dir(Chr(X) & Yol & Uzanti(Y)) <> "" Then
                Yol = Chr(X) & Yol & Uzanti(Y)
                MsgBox Yol
                Exit For
            End If
        Next
    Next
End Sub

Usta teşekkür ederim bunu tam olarak nereye yapıştıracağımı bilemedim

 

[Korhan Ayhan]

Ben ilk mesajınızda bir yol paylaşınca makro içinde kullanmak üzere bu talebi yaptığınızı düşündüm.

Eğer kullandığınız bir kod varsa onun içine uygun bir yere uygulamalısınız.

Eğer talebinizi yanlış anladıysam önerimi dikkate almayınız.