Я использовал макрос Excel, позволяющий проводить самооценку, но не создавал отчет. он отвечает на ошибку времени выполнения 1004

Question

Sub make_report() 'Inhoud van een cell te gebruiken als naam voor het pdf-document en path van de file zelf

Dim companyname, reportname As String
Dim bli, bli2 As Integer

bli = 0
bli = 0

companyname = Worksheets("Report").Range("C2:C2")
'bli YES=6=vbYes NO=7=vbNo
bli = MsgBox(companyname, vbYesNo, "Company Name correct?")
'MsgBox bli, 0, "bli"

If (bli = 6) Then
    reportname = Names.Parent.Path & "\" & Worksheets("Report").Range("C2:C2") & "_" & _
            Worksheets("Report").Range("B4:B4") & "_Fraud_Report.pdf"
    
    'bli OK=1=vbOK Cancel=2=vbCancel
    bli2 = MsgBox(reportname, vbOKCancel, "Report FileName:")
  
    
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=reportname, _
        Quality:=xlQualityStandard, From:=1, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        

Конец подписки