Supportnet / Forum / Tabellenkalkulation

Hallo allerseits, Ist es möglich per excelmakro dateien in ein bestimmtes verzeichnis zu kopieren (z.B pdf-dateien) Wenn ja wie ??? Ich habe eine liste mit dateinamen die schon per makro gefiltert werden... am ende bleib halt eine ziemlich große liste mit den zu kopierenden Dateien über.. diese sollen dann in einen seperaten ordner kopiert werde.. MfG Joe

Hallo Joe,

hol dir doch die freeware "freepdf".

Das funktioniert quasi wie ein Drucker und Du wählst den Speicherort aus.

Gruß

m-o-m

Hallo

Das geht mit Methode FileCopy z.B. so:

Sub Datei_kopieren(strSource  As String , _
strDestination  As String
      FileCopy strSource, strDestination
End Sub 

Gruß

es würd wohl gen nur er gibt mir einen laufzeilenfehler genau an der stelle aus.
er kann nicht auf den pfad/datei zugreifen steht da... ob wohl die datei exestiert die kopiert werden muß.

Nur der Ordner noch nicht ! hab darauf hin einfach den ordner manuell angelegt .. geht aber auch nicht !

Hallo Joe,

Du könntest das Makro ändern in

Sub Datei_kopieren()

Dim strSource As String, strDestination As String

strSource = "L:\Pfad1\Test3.xls"
strDestination = "L:\Pfad2\Test4.xls"

FileCopy strSource, strDestination

End Sub

wobei Du die Werte für strSource und strDestination natürlich noch anpassen musst.

So wie es weiter oben angegeben ist, müsste es von einem anderen "Rahmenprogramm" aufgerufen werden und dabei die beiden Parameter übergeben bekommen. Richtig ist, dass das Zielverzeichnis existieren muss.

Gruß,
CaroS

Moin Joe,

offensichtlich gehts Dir nicht ums PDF, sondern ums kopieren:

Versuch mal dies:

Sub Makro1()
Cells.Copy
Workbooks.Add
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.DisplayZeros = False
Application.CutCopyMode = False
End Sub

Hier werden aus der aktuellen Tabelle die Werte und Formate in eine neue Datei gespeichert und die Nullwerte ausgeblendet.
Funzt 1A.

Kommt allerdings nicht von mir.

Hat JöKe zusammengebraut und ich hab ´n bisschen Salz dazugetan.

Gruß

m-o-m

Danke danke danke CaroS !!! Hab nur den odner als ziel angegeben und nicht noch den dateinamen ... *gegen kopf hau* :D ! vielen dank nochmal

MfG joe

• Dateien kopieren mit Prüfung
• kann nichts löschen unter XP
• wie oft kann man dateien verschieben?
• Dateien verschieben = kopieren
• Funktion "Verschieben" anstatt kopieren