VBA编码名称和特定文件夹上的周末日期并自动保存

我需要帮助来修改这个VBA代码，将pdf保存在一个特定的文件夹中，并在一个名为E 24的单元格中计算出一个周末日期，或者如果是另一种方式的话。请找个人帮忙好吗

Private Sub Picture2_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim v As Variant
    v = Application.GetSaveAsFilename(Range("E24").value.Format, "PDF Files (*.pdf), *.pdf")
    If Dir(v) <> "C:\Users\user\Desktop\work invoices" Then
        If MsgBox("File already exists - do you wish to overwrite it?", vbYesNo, "File Exists") = vbNo Then
            Exit Sub
        End If

        With ActiveSheet
            .ExportAsFixedFormat Type:=xlTypePDF, filename:=v, _
                                 Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                 IgnorePrintAreas:=False, From:=1, To:=3, OpenAfterPublish:=False
        End With

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        On Error Resume Next
        With OutMail
            .To = "accounts@email.com"
            .CC = ""
            .BCC = ""
            .Subject = "Job number 1868"
            .Body = ""
            .Attachments.Add v
            .Display
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End If
End Sub

Private子图片2\u Click（）
Dim OutApp作为对象
将邮件变暗为对象
Dim v作为变体
v=Application.GetSaveAsFilename（范围（“E24”）.value.Format，“PDF文件（*.PDF），*.PDF”）
如果Dir（v）“C:\Users\user\Desktop\work invoices”，则
如果MsgBox（“文件已存在-是否要覆盖它？”，vbYesNo，“文件存在”）=vbNo，则
出口接头
如果结束
使用ActiveSheet
.ExportAsFixedFormat类型：=xlTypePDF，文件名：=v_
质量：=xlQualityStandard，IncludeDocProperties:=True_
IgnorePrintAreas:=False，From:=1，To:=3，OpenAfterPublish:=False
以
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
出错时继续下一步
发邮件
.To=”accounts@email.com"
.CC=“”
.BCC=“”
.Subject=“工作编号1868”
.Body=“”
.附件
.展示
以
错误转到0
发送邮件=无
设置应用程序=无
应用
.ScreenUpdate=True
.EnableEvents=True
以
如果结束
端接头

您好，欢迎来到本网站。具体来说，你需要什么帮助？请花一些时间阅读和。上面的代码有什么不适用，预期结果是什么？预期结果：预期结果：将活动工作表以PDF格式保存在特定文件夹中，并以星期日为名称，然后附加并发送到特定的电子邮件地址。