salvare file pdf con nome preso da elenco excel

Question

Buongiorno, vorrei rinominare dei file pdf tramite elenco excel, ma inserendo la seguente formula, mi effettua la rinomina dei file ma non in ordine corretto sapere aiutarmi? grazie in anticipo

'=========>>
Option Explicit

'--------->>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim RngTabella As Range
Dim oFso As Object
Dim oFolder As Object
Dim oFiles As Object
Dim oFile As Object
Dim sPath As String, sStr As String, sName As String
Dim i As Long, j As Long, k As Long
Dim iCtr As Long, jCtr As Long

    Const sPercorso As String = \_  
                    "C:\Users\mdiblasi\Desktop\LETTERE PDR CVB"  
Const sFoglio As String = "Foglio1"  
Const sTabella As String = "A1:A225"  
Const sExt As String = ".PDF"  

Set WB = ThisWorkbook  
Set SH = WB.Sheets(sFoglio)  
Set RngTabella = SH.Range(sTabella)  

sStr = Application.PathSeparator  
If Right(sPercorso, 1) = sStr Then  
    sPath = sPercorso  
Else  
    sPath = sPercorso & sStr  
End If  

Set oFso = CreateObject("Scripting.FileSystemObject")  
Set oFolder = oFso.GetFolder(sPath)  
Set oFiles = oFolder.Files  
For Each oFile In oFiles  
    With oFile  
        If UCase(Right(.Name, 4)) = sExt Then  
            iCtr = iCtr + 1  
            sName = RngTabella.Cells(iCtr, 1) & "\_" \_  
                                & RngTabella.Cells(iCtr, 2).Value  
            .Name = sName & sExt  
        End If  
    End With  
Next oFile  
    Call MsgBox( \_  
         Prompt:=iCtr & " File sono stati renominati", \_  
         Buttons:=vbInformation, \_  
         Title:="REPORT")  

End Sub
'<<=========

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao Manu24188,

Benvenuto nella community Microsoft.

Sembra che tu stia tentando di utilizzare Excel VBA per salvare il file PDF con il nome preso dall'elenco di Excel. È consigliabile pubblicare questa query su Stack Overflow per un'assistenza più personalizzata.

Si noti che Stack Overflow dispone di linee guida che includono un titolo descrittivo, una dichiarazione del problema concisa ma completa e dettagli sufficienti per la replica del problema. Le richieste di funzionalità o le domande troppo generiche possono essere considerate fuori tema.

Dichiarazione di non responsabilità: Microsoft non fornisce alcuna garanzia implicita o di altro tipo, né è responsabile delle informazioni ottenute dall'utente da siti Web di collegamento di terze parti o di qualsiasi supporto tecnico ad essi correlato.

Anche se non sono in grado di fornire una soluzione completa per te, conservo la tua domanda nel caso in cui i nostri abili volontari della comunità possano offrire suggerimenti perspicaci.

Migliori saluti

Jonathan Z - MSFT | Specialista del supporto della community Microsoft