Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel Jak zmodyfikować makro aby zapisywało każdy arkusz jako osobny plik PDF?

15 Lis 2012 12:08 4518 2
  • Poziom 2  
    Witam,
    Mam problem z modyfikacją makra, które zapisuje mi każdy arkusz jako oddzielny plik .xlsx nazywając go jednocześnie nazwą arkusza, mianowicie potrzebuję przeróbki tego makro, aby zapisywało mi pliki w formacie .pdf. Poniżej skopiowany kod z VBA, bardzo proszę o pomoc :)

    Sub przeniesienie_arkusza()
    Dim Arkusz As Worksheet
    For Each Arkusz In ThisWorkbook.Worksheets
    Arkusz.Copy
    ActiveWorkbook.SaveAs "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name
    ActiveWorkbook.Close
    Next
    End Sub
  • Pomocny post
    Poziom 20  
    Zamień linię:
    ActiveWorkbook.SaveAs "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name

    na:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
  • Poziom 2  
    Serdeczne dzięki kolego :) Dałem sobie radę robiąc dwa makra, ale Twoja porada jest zdecydowania lepsza:)
    POZDRO !!!:)