Перемещение файла в динамическую папку

Привет В настоящее время я работаю над электронной таблицей, которая генерирует файл и сохраняет его в определенной папке, но папки меняются на номер задания. в настоящее время я устанавливаю папку назначения в качестве своего рабочего стола, и я вручную перемещаю файл в нужную папку. Вот мой код ниже:

Sub Move () Dim FSO As Object Dim SourceFileName, DestinFileFolder As String Set FSO = CreateObject("Scripting.Filesystemobject") SourceFileName = "Z:\USERS\KweziM\PROJECT S\FUILD COOLERS STANDARD UPL1.pdf" DestinFileFolder = "C:\Users\Kwezim\Desktop\" FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileFolder MsgBox (SourceFileName + " Moved to " + DestinFileFolder) End Sub 

Имя папки изменяется каждый раз, и имя связано с ячейкой E8 в Листе 1. Пожалуйста, помогите

Имя папки изменяется каждый раз, и имя связано с ячейкой E8 в Листе 1.

 DestinFileFolder = ThisWorkbook.Sheets("Sheet1").Range("E8").Value 
Interesting Posts

Определенная заявка или объектная ошибка слияния

Многоколоночный поиск

Утечка памяти в коде vba

Оператор Excel IF не работает должным образом

Слияние и выравнивание центральной ячейки с помощью apache poi

Условно перемещаемые данные перемещаются по пробелам

Как написать макрос для выделения фильтрованных строк в качестве альтернативы

Почему это происходит при написании Excel в Java

VBA Excel SQL Query для обновления поля с более чем 255 символами

Время начинается с определенного окончания времени из нескольких мест

Код SAS, который работает как функция «VLOOKUP» Excel

Есть ли способ использовать имя листа из определенной ячейки (которая была заполнена с использованием этого листа) для заполнения другой ячейки?

Макросы регрессии в excel с возрастающими рядами данных

Справочные ячейки Excel до количества символов до последнего пробела

Excel: передача значения ячейки в SQL-запрос VBA

Давайте будем гением компьютера.