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

• #31163 Nowitzki csendes tag Declare #31162

  Új Válasz 2016-03-29 17:30:34 #31163

  Ú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

  

  Nowitzki

  csendes tag

  válasz Declare #31162 üzenetére

  Ez hozzáírja a fájlnévhez a mentés dátumát (év, hó, nap, óra, perc).
  Sub ActiveSheetExportToPdf1()
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste_" & Format(Now, "yyyymmdd_hhnn") & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

  Ez pedig hozzáad egy növekményes azonosítót a fájlnévhez ha az már létezik.
  Sub ActiveSheetExportToPdf2()
  cntr = ""
  If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = "" Then GoTo xprt
  If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") <> "" Then
  cntr = 1
  Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = ""
  cntr = cntr + 1
  Loop
  End If
  xprt:
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

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