Как скопировать файл с именем переменной в другую папку?

Question

Я пытаюсь скопировать файл из папки и вставить его в другую. Следовательно, функция FileCopy казалась отличным решением. Однако файл, который я хочу скопировать, будет менять имя каждый день, поэтому я назвал его значением 3 в моем коде, и имя следует за ячейкой в ​​моей книге.

Однако у меня есть ошибка (файл не найден, ошибка 53) в последней строке кода:

FileCopy myFPName, myNewDir & value3

Sub copytxtfileinfolder()

    Dim myFPName As String
    Dim myNewDir As String
    Dim value3 As String
    value3 = Worksheets("Offset Helper Sheet").Range("B29").Value
'   Full name and path of original file
    myFPName = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & " value3"
'   Name of new directory to copy to
    myNewDir = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Payments Holidays\Payment Holidays txt\"
'   Copy file to new directory with same name
    FileCopy myFPName, myNewDir & value3

End Sub

Answer 1

Ваша проблема заключается в этой строке:

myFPName = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & " value3" 

Предполагая, что value3 содержит что-то вроде File.txt, скобки не нужны. Если вы заключите его в круглые скобки, файл, который он ищет, будет G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\value3 (начальное пространство автоматически удаляется Excel; вместо значения value3 он ищет буквально файл с именем value3) (отредактировано)

Исправление:

myFPName = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & value3