এক্সেল ম্যাক্রো সমস্যা

-2

আমি দৈনিক ব্যবহার করে একটি খুব বিস্তারিত এবং সূত্র ভারী ওয়ার্কবুক টেম্পলেট আছে। আমি মূলত এটি এক্সেল 2010 সালে তৈরি।

আমার তৈরি কয়েকটি ম্যাক্রো বোতাম আছে যা নির্দিষ্ট শিটগুলিকে ওয়ার্কবুক ডিরেক্টরিতে PDF হিসাবে সংরক্ষণ করে।

কিছু কারণে যখন আমি ২013 সালে আপগ্রেড করা হল, পিডিএফের জন্য ম্যাক্রো শুধুমাত্র একবার কাজ করে, যদি আমি একবারে পিডিএফ হিসাবে 1 টি শীট সংরক্ষণ করি, তবে আমি নিজে ম্যাক্রো লিখি নি, আমি কোথাও থেকে একটি কপি পেস্ট সংশোধন করেছি।

নীচে ম্যাক্রোগুলির একটি নমুনা রয়েছে:

Sub PDF_3P()


ThisWorkbook.Sheets(Array("CD 1", "CD 2", "CD 3")).Select

 pdfName = ActiveSheet.Name
    ChDir ActiveWorkbook.Path & "\"
    fileSaveName = ActiveWorkbook.Name

     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

    MsgBox "File Saved " & " " & fileSaveName
End Sub

— Ryan Perullo
সূত্র

প্রকৃত সমস্যাটি কি এবং আপনি এটিকে ঠিক করার জন্য কী চেষ্টা করেছেন?

— Eric F

ম্যাক্রো কাজ করে, কিন্তু শুধুমাত্র যদি আমি অন্তত একবার সংরক্ষণ করে একটি পিডিএফ তৈরি করি। তারপর স্বয়ংক্রিয় পিডিএফ ম্যাক্রো কাজ। (2010 সালে যে করছেন ছাড়া জরিমানা কাজ

— Ryan Perullo

আপনি কোন ত্রুটি হচ্ছে?

— 0m3r

এটা অফিস 2013 আমার জন্য কাজ করে

Option Explicit
Sub PDF_3P()
    Dim FileSaveName As String

    ThisWorkbook.Worksheets(Array("CD 1", "CD 2", "CD 3")).Select

    FileSaveName = ActiveWorkbook.Path & "\" & ThisWorkbook.Name

    If FileSaveName <> "False" Then
        With ActiveSheet
            .ExportAsFixedFormat _
             Type:=xlTypePDF, _
             FileName:= _
             FileSaveName, _
             Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, _
             IgnorePrintAreas:=False, _
             OpenAfterPublish:=False
        End With
    End If
End Sub

— 0m3r
সূত্র