Как исправить ошибку «Путь / файл не найден» с помощью метода CopyFile

Question

Я пытаюсь сохранить лист в виде файла PDF на рабочем столе, а затем скопировать файл в другое место, используя метод FileCopy.Я получаю ошибки «Файл не найден» или «Путь не найден».

При использовании метода FileCopy он создает файл на рабочем столе, а затем выдает ошибки при копировании файла.До этого я пытался создать PDF дважды, один за другим, и он создает на рабочем столе и создает другой в соответствующей ежемесячной папке.Пробовал другой синтаксис в отношении двух переменных, которые я использую.Кажется, не могу получить ничего правильного.Пытаясь сделать код более эффективным

Sub Save_Invoice_To_PDF()

Dim Fso As Scripting.FileSystemObject
Dim Invoice As Worksheet
Dim Fname As String
Dim Path1 As String
Dim Path2 As String
Dim PndSign As String
Dim Mth As String
Dim Mth1 As String

Set Invoice = Sheet1

PndSign = Chr(163)

Mth = Invoice.Range("A16").Value
Mth1 = MonthName(Month(Mth))

Path1 = "C:\Users\Peter\Desktop\"
Path2 = "C:\Users\Peter\Documents\Business\Sent Invoices\" & Mth1 & "\"
Fname = Range("C16").Value & " " & Range("A8").Value & " " & _
    PndSign & "" & Range("E46").Value _
    & " " & Format(Range("A16"), "dd-mm-yyyy") & ".pdf"

Application.ScreenUpdating = False


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path1 & " " & Fname, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False


  Set Fso = New FileSystemObject

    Fso.CopyFile Source:="C:\Users\Peter\Desktop\" & Fname, _
Destination:="C:\Users\Peter\Business\Invoices\Sent Invoices\ _
" & Mth1 & "\"

Set Fso = Nothing

Application.ScreenUpdating = True

End Sub

Хотелось бы просто сохранить один PDF-файл на рабочий стол и скопировать этот PDF-файл в ежемесячную папку, обозначенную в переменной Mth1, которая частично получается из переменной Fname файловФормат (диапазон («A16»), «дд-мм-гггг»).Спасибо за любую помощь.