Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - einzelne EXCEL Datei als PDF drucken
#1
Hallo Zusammen, 
 

ich bräuchte ein wenig Hilfe von euch Smile

Ich habe ein Ordner mit mehreren EXCEL Dateien (jeweils ein tabellenblatt). Ich möchte dass jede einzelne Datei als PDF gedruckt wird und mit dem selben Namen in einem anderen Ordner hinterlegt wird.

Das ganze aber ohne die Dateien zu öffnen! 

Mein Programm öffnen es leider ….

Könnt ihr mir bitte helfen? 

Confused 


Sub MachPDF_Test1()
  Dim sFile As String, sPfad As String, sPDF As String
 
  Dim wkb As Workbook
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then
    sPfad = .SelectedItems(1)
    End If
  End With
  If sPfad <> "" Then
    sPfad = sPfad & "\"
    sFile = Dir(sPfad & "*.xls*")
    Do While sFile <> ""
      sPDF = Left(sFile, InStrRev(sFile, ".") - 1)
      Set wkb = Workbooks.Open(sPfad & sFile)
     wkb.ExportAsFixedFormat xlTypePDF, sPfad & sPDF, , , , , , False
      wkb.Close False
      sFile = Dir
    Loop
  End If
End Sub
Antwortento top
#2
Hallöchen,

das pdf geht so nicht. Das speichern schon, aber das fehlt in Deinem Code:

Verschieben:
Name "C:\Test\Mein.xlsx" As "C:\Temp\Dein.xlsx"

Kopieren:
FileCopy "C:\Test\Mein.xlsx", "C:\Temp\Dein.xlsx"

Geht natürlich auch mit gleichem Ziel-Namen Smile
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Wie willst du eine Datei drucken (was anderes ist exportieren als pdf ja nicht), ohne sie zu öffnen?
Was ist das Problem, wenn sie geöffnet wird?
Schöne Grüße
Berni
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste