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

124

Codingnoob

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

我更正了小错误。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。