نوشته اصلی توسط
Amir Mohsenpour
سلام
آیا برای کدی که نوشتید فایل پی دی افش موجود هست ؟
آیا توی خط اول کدتون چیزی نوشتید که اگه فایل پی دی اف رو پیدا نکرد چیکار کنه ؟
مثلا 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 نداره
علاقه مندی ها (Bookmarks)