VBA批量重命名PDF文件

新一

path = "d：\date" 'path为pdf所在文件夹的路径

这个代码要怎么修改，可以做到根据EXCEL表所在的文件位置自动变化

benhsu

path=Application.ActiveWorkbook.Path

limonet

Sub rename()
    On Error Resume Next
    Dim i As Integer
    Dim path As String
    path = ThisWorkbook.path
    For i = 2 To ActiveSheet.UsedRange.Rows.Count
        If Dir(path & "\" & "*.pdf") <> "" Then
            Name path & "\" & Range("a" & i) & ".pdf" As path & "\" & Range("b" & i) & ".pdf"
        End If
    Next
End Sub