VBA Excel - FileCopy - 错误的格式

Question

Set fso = VBA.CreateObject("Scripting.FileSystemObject")
For i = 1 To cantfilas Step 1
Worksheets("Tool").Activate
nombretemporal = Cells(j + 1, "H").Value
fso.CopyFile Cells(j + 1, "G"), folder & "\" & nombretemporal
Cells(j + 1, "J").Value = "Done"
j = j + 1
Next i

然而，宏更长。它从电子表格中选择每个文件的名称（所有这些都像 nameoffileYYYY-MM-DD.xls ，虽然它们大多数都是zip格式。我需要将它们复制到另一个位置并给出他们是正确的名字（即今天的日期 nameoffile2014-05-16 ）

Answer 1

我将在这里实现信念的飞跃：

如果您将日期追加到nombretemporal，则会使用nombretemporal = fileName & Date

之类的内容添加日期

而不是这样，请尝试指定日期的格式：

nombretemporal = fileName & Format(Date, "yyyy-mm-dd")