Clever-Excel-Forum

Hallo Zusammen, 
 

ich bräuchte ein wenig Hilfe von euch :)

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? 

 


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

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

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?