Új hozzászólás Aktív témák

• #46783 lappy őstag sike! #46780

  Új Válasz 2021-05-27 11:22:35 #46783

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz sike! #46780 üzenetére

  Sub LoopSheetsSaveAsPDF()
  'Create variables
  Dim ws As Worksheet
  'Loop through all worksheets and save as individual PDF in same folder
  'as the Excel file
  For Each ws In ActiveWorkbook.Worksheets
  ws.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "/" & ws.Name & ".pdf"
  Next
  End Sub

Új hozzászólás Aktív témák