HERBERS Excel-Forum - die Beispiele

Thema: Arbeitsmappe blitzschnell kopieren

Home

Gruppe

Datei

Problem

Die aktive Arbeitsmappe soll mit einer schnellen Methode 100 mal in das Standardverzeichnis kopiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Kopieren()
   Dim iCounter As Integer
   Dim sFile As String, sPath As String
   sPath = Application.DefaultFilePath & "\"
   Close
   Open "speichern.bat" For Output As #1
   For iCounter = 1 To 100
      sFile = ThisWorkbook.FullName & " "
      sFile = sFile & sPath & "test" & iCounter & ".xls"
      Print #1, "copy " & sFile
    Next iCounter
    Close
    Call Win32WaitTilFinished("command.com /c speichern.bat")
    Kill "speichern.bat"
    MsgBox "Die Dateien wurde angelegt!"
End Sub

StandardModule: basFunctions

Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const WAIT_TIMEOUT = &H102&

Declare Function OpenProcess Lib "kernel32" ( _
   ByVal dwDesiredAccess As Long, _
   ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" ( _
   ByVal hHandle As Long, _
   ByVal dwMilliseconds As Long) As Long

Sub Win32WaitTilFinished(ProgEXE As String)
   Dim ProcessID As Long
   Dim hProcess As Long
   Dim RetVal As Long
   ProcessID = Shell(ProgEXE, vbHide)
   hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
   Do
      DoEvents
      RetVal = WaitForSingleObject(hProcess, 50)
   Loop Until RetVal <> WAIT_TIMEOUT
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Kopieren

Finden und Kopieren Excel/PDF Datei unter bestimmten Pfad abspeichern
Nur Text in die Zwischenablage kopieren Kopieren Spalte aus AutofilterTabelle
aus excel Worddatei nach Wert durchsuchen Daten in "Excel-Datenbank" kopieren
Spalten kopieren Split-Funktion beim Einlesen TXT-Datei
Datei löschen mit unterschiedlichen Zahlen im Name Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Komplettes Excel Sheet kopieren mit Formaten
Tab. kopieren & neue Daten in Datenbank einfuegen Inhalte von einer PDF suchen und den Text kopieren
Mehrere Zellen in mehreren Dateien ersetzen Datensatz kopieren+einfügen - Code verinfachen
VBA- aus anderer Mappe kopieren)mit Kriterium) Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Datum abfragen und Werte kopieren
sverweis klappt nicht ( bei runter kopieren) Bestimmten Bereich anhand Zeilenabgabe kopieren
Daten import aus txt--Datei VBA Suchen, kopieren, einfügen
Dateipfad öffnen mit VBA VBA bestimmte Spalten kopieren
Namen der Tabellen kopieren Datei-Verknüpfungen
Masterdatei erschaffen? Mehrere Datenblätter als PDF-Datei ausgeben
Makro bei Erstellen einer Datei aus einer Vorlage Finden und kopieren
Array in Tabelle kopieren, Verlust von Format Zusammenführung aus mehreren Dateien
Rechteck per Button in andere Datei einfügen. Alle Dateien in einem Unterordner öffnen
VBA: MsgBox: yes/no. Bei yes andere Datei öffnen VBA: Kopieren nicht vorhandener Werte
Zeile automatisch hoch kopieren Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen