我希望能够将Excel文件从一个文件夹复制到另一个文件夹。但是，每次复制它时，我都想将其名称更改为TABLEAUPCQ1，TABLEAUPCQ2，TABLEAUPCQ3，等等。
原因是，如果有人已经在其他路径中使用了excel文件，则无法覆盖它。
Sub CopierFichier()
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
Call fso.CopyFile("R:\ASP\PCQ_BEHESP\SuiviPCQAssignations\TABLEAUPCQ.xlsm","V:\DGI\11000_Surveillance\11200_InstallationsSousPression\PCQ\Suivi\TABLEAUPCQ.xlsm")
End Sub
在单元值内的每个子执行之后，将计数器增加1。这样，您就可以将当前计数存储在函数之外。
抓住它，使用它，然后增加它。
Sub CopierFichier()
Dim counter_var As String
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
counter_var = Cells(1,1).Value
Call fso.CopyFile("R:\ASP\PCQ_BEHESP\SuiviPCQAssignations\TABLEAUPCQ.xlsm","V:\DGI\11000_Surveillance\11200_InstallationsSousPression\PCQ\Suivi\TABLEAUPCQ_COPIE_" + counter_var + ".xlsm")
Cells(1,1).Value = Cells(1,1).Value + 1
End Sub
我纠正了小错误。