Excel Makro sorunu

-2

Günlük kullandığım çok detaylı ve formül ağırlıklı bir çalışma kitabı şablonum var. Başlangıçta Excel 2010'da oluşturdum.

Belirli sayfaları çalışma kitapları dizininde PDF olarak kaydeden çeşitli makro düğmelerim var.

Bazı nedenlerden dolayı 2013'e yükselttiğimde, SADECE PDF için makrolar çalışır, bir keresinde manuel olarak PDF olarak 1 sayfa kaydedersem, makroyu kendim yazmadım, bir yerden kopyala yapıştırmayı değiştirdim.

Aşağıda makrolardan birinin örneği verilmiştir:

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
kaynak

Asıl sorun nedir ve şimdiye kadar düzeltmeye çalıştığınız şey nedir?

— Eric F

Makro çalışır, ancak yalnızca en az bir kez kaydet kullanarak pdf oluşturursam. daha sonra otomatik pdf makroları çalışır. (2010 yılında bunu yapmadan iyi çalıştı

— Ryan Perullo

Hata alıyor musunuz?

— 0m3r

Bu benim için Office 2013'te çalışıyor.

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
kaynak