A1=DA2304170119; B1=SP-S1IS1-2023052300340;C1=DA2304170119 INV.pdf D1=SP-S1IS1-2023052300340_520_CommercialInvoice_001DA2304170119.pdf 使用VBA代码实现C1重命名为D1的代码

以下是将C1重命名为D1的VBA代码：

Sub RenameFile()
    Dim oldName As String
    Dim newName As String
    
    oldName = "C:\FolderName\" & Range("C1").Value '将文件路径和旧文件名组合成完整的路径
    newName = "C:\FolderName\" & Range("D1").Value '将文件路径和新文件名组合成完整的路径
    
    Name oldName As newName '使用Name语句重命名文件
End Sub

请将代码中的“C:\FolderName\”替换为你文件所在文件夹的路径。在Excel工作簿中运行此宏时，它将重命名文件C1为D1。