• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

pdf isim sadeleştirme

Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
iyi akşamlar, hayırlı kandiller; gib' ten indirdiğim dosyanın ismini sadeleştirmek istiyorum. uzun kodu içinde kullanabileceğim
Kod:
IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527
uzun ismin kırpılarak
Kod:
67522111976
şekline nasıl getirmek istiyorum. dosya pdf formadında. Teşekkürler.
 
Örnek:

Kod:
Sub Test()
    Dim myPDF As String
    myPDF = "[COLOR=Red][B]C:\TestFolder\[/B][/COLOR][B][COLOR=Blue]IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527.pdf[/COLOR][/B]"
    newPDF = "[B][COLOR=red]C:\TestFolder\[/COLOR][/B]" & Split(myPDF, "_")(3) & ".pdf"
    Name myPDF As newPDF
End Sub

.
 
hata veriyor

Örnek:

Kod:
Sub Test()
    Dim myPDF As String
    myPDF = "[COLOR=Red][B]C:\TestFolder\[/B][/COLOR][B][COLOR=Blue]IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527.pdf[/COLOR][/B]"
    newPDF = "[B][COLOR=red]C:\TestFolder\[/COLOR][/B]" & Split(myPDF, "_")(3) & ".pdf"
    Name myPDF As newPDF
End Sub

.

Teşekkkürler, uzantıda hata yapmışım, sorunsuz çalışıyor.
 
Son düzenleme:
Kolay gelsin ...

.
 
Geri
Üst