如何使用VBA将文件从一个目录复制到另一个目录

Question

我希望能够将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

Answer 1

在单元值内的每个子执行之后，将计数器增加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

我纠正了小错误。