将文件移动到dynamic文件夹

您好，我目前正在生成一个电子表格，生成一个文件，并将其保存在某个文件夹，但文件夹更改每个作业号码。 目前我设置目标文件夹为我的桌面，我手动将文件移动到所需的文件夹。 这里是我的代码如下：

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 

文件夹名称每次更改，名称链接到表格1中的单元格E8。请协助

Answer 1

文件夹名称每次更改，名称链接到工作表1中的单元格E8。

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