Ich habe folgendes vor:
Ich möchte aus einer Excelanwendung heraus Dateien von einem in einen anderen Ordner kopieren.
Dabei möchte ich die Dateien aber nicht öffnen müssen.
Hat jemand eine Idee, wie sowas VBA-technisch aussehen könnte?
Gruß
Frank
Sub Feilen_kopieren()
Const bolUeberschreiben As Boolean = True
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Quellordner\*.xls", "D:\Zielordner\", bolUeberschreiben
Set objFSO = Nothing
End Sub
Gruß K.Rola
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen