خطای ران کردن کد pdf

[msoori]

با سلام
دوستان، کدی را برای تبدیل کردن به pdf نوشتم که بعد از اجرا شدن خطا داره
تو اکسل 2010 که ران میکنم error میده
خطا رو پیوست کردم
لطفا راهنمایی کنید

[Amir Mohsenpour]

سلام
آیا برای کدی که نوشتید فایل پی دی افش موجود هست ؟
آیا توی خط اول کدتون چیزی نوشتید که اگه فایل پی دی اف رو پیدا نکرد چیکار کنه ؟
مثلا On error Resume next یا On error Go to Error Handler و یا ...
من احساس می کنم این فایلی که دارین جستجو میکنید پی دی افش موجود نیست و چون پیدا نمیکنه این مشکل رو دارین ...

[msoori]

سلام
آیا برای کدی که نوشتید فایل پی دی افش موجود هست ؟
آیا توی خط اول کدتون چیزی نوشتید که اگه فایل پی دی اف رو پیدا نکرد چیکار کنه ؟
مثلا On error Resume next یا On error Go to Error Handler و یا ...
من احساس می کنم این فایلی که دارین جستجو میکنید پی دی افش موجود نیست و چون پیدا نمیکنه این مشکل رو دارین ...


ضمن تشکر از جنابعالی
این کد تو اکسل نوشته شده و خودش تبدیل به pdf میکنه و ذخیره میکنه
کد فایل این هست


Private Sub CommandButton1_Click()
Dim i, j As Integer

For i = 2 To 20

ActiveSheet.Range("M3").Value = Sheets("code markaz unique").Range("E" + CStr(i)).Value
Sheets("karnameh prog").Calculate
ActiveSheet.Cells(3, 13).Value = Sheets("code markaz unique").Cells(i, 5).Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:" + CStr(Cells(3, 13)) + "." + Cells(7, 8) + "." + Cells(9, 3) + ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
ActiveSheet.Cells(73 + i, 13).Value = ActiveSheet.Cells(9, 3).Value
ActiveSheet.Cells(73 + i, 12).Value = ActiveSheet.Cells(69, 1).Value
Next i
End Sub
نکته جالب این که در اکسل 2016 کامل انجام میشه و error نداره

[Amir Mohsenpour]

به خط اول کدها اینو اضافه کنید
On error resume next