Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Datei per VBA kopieren von mr_damoon vom 22. 03. 2005 16:39:18
AW: Datei per VBA kopieren - von am 22. 2005 16:42:21
AW: Datei per VBA kopieren - von mr_damoon am 22. 2005 16:48:35
AW: Datei per VBA kopieren - von mr_damoon am 22. 2005 17:25:09
AW: Datei per VBA kopieren - von am 22. 2005 18:43:29
AW: Datei per VBA kopieren - von mr_damoon am 23. 2005 08:46:41
AW: Datei per VBA kopieren - von Oberschlumpf am 23. 2005 15:30:01
AW: Datei per VBA kopieren - von Frank Sohn am 22. 2005 16:51:34
Betrifft: Datei per VBA kopieren
von: mr_damoon
Geschrieben am: 22. 2005 16:39:18
Hallo Excelfreunde. Hat jemand den VBA-Code um per Commandbutton-Druck eine Datei aus Ordner C:\A in Ordner C:\B zu kopieren, ohne diese erst zu öffnen oder umbenennen zu müssen? Vielen Dank für die Hilfe. Betrifft: AW: Datei per VBA kopieren
von:
Geschrieben am: 22. Vba datei kopieren radio. 2005 16:42:21 Hallo,
so z. B. :
Option Explicit
Sub Ordner_kopieren()
Const Quelle As String = "c:\a"
Const Ziel As String = "c:\b"
Dim objFSO As Object
Set objFSO = CreateObject("leSystemObject")
pyFolder Quelle, Ziel, True
End Sub
Gruß Der Fleiß ist die Wurzel aller Häßlichkeit.
- Vba datei kopieren und speichern unter
- Vba datei kopieren radio
Vba Datei Kopieren Und Speichern Unter
Sie können auch unsere anderen Artikelvorschläge durchgehen - Arbeiten mit VBA Active Cell Zeile in VBA löschen Wie verwende ich Excel VBA Transpose? Wie 1004 Fehler mit VBA zu beheben
Vba Datei Kopieren Radio
Es folgen Beispiele für das Kopieren und Einfügen von Arbeitsblättern in andere Arbeitsmappen. Mit diesem Code wird ein Arbeitsblatt als erstes Arbeitsblatt in eine anderen Arbeitsmappe kopiert:
Sheets("Tabelle1") Before:=Workbooks("")(1)
So wird das Arbeitsblatt an das Ende der anderen Arbeitsmappe kopiert. Sheets("Tabelle1") After:=Workbooks("")(Workbooks(""))
Beachten Sie, dass wir 1 durch Workbooks("") ersetzt haben, um das letzte Arbeitsblatt zu ermitteln. Arbeitsblatt in eine geschlossene Arbeitsmappe kopieren
Vielleicht möchten Sie ein Arbeitsblatt in eine ungeöffnete Arbeitsmappe kopieren. Vba datei kopieren en. Mit diesem Code wird eine geschlossene Arbeitsmappe geöffnet, so dass das Arbeitsblatt dort hinein kopiert werden kann. Sub BlattInGeschlosseneMappeKopieren()
reenUpdating = False
Set GeschlosseneMappe = ("D:\Dropbox\excel\artikel\")
Sheets("Tabelle1") (1)
SaveChanges:=True
reenUpdating = True
Blatt aus einer ungeöffneten Arbeitsmappe kopieren
Umgekehrt wird mit diesem Code ein Arbeitsblatt aus einer ungeöffneten Arbeitsmappe kopiert.
Oscar Wilde
Geschrieben am: 22. 2005 16:48:35
Das funktioniert. Ich habe noch pyFolder... in pyFile... umbebaut und schon klappt es wie gewünscht.. Danke
Geschrieben am: 22. 2005 17:25:09
Kann man die Const Strings auch variabel aus den Zellen A1 und A2 holen? Geschrieben am: 22. 2005 18:43:29
Hallo,
wenn die Werte aus einer Zelle kommen, muss man schon etwas mehr Aufwand betreiben. Man muss prüfen, ob in den Zellen keine Zeichen stehen, die in Dateinamen nicht erlaubt sind und ob die Zelle nicht leer ist. In welcher Form stehen die Daten in den Zellen, mit Extension z. B.? Gruß
Geschrieben am: 23. 2005 08:46:41
In Form von: c:\temp1\ (wird in der Zelle generiert) als Quelle sowie c:\tmp1 (wird ebenfalls dynamisch generiert) als Ziel. Prüfen brauch man da jedoch nichts. Da das eine dynamische Sache ist wo keiner händisch etwas eingibt. Bestenfalls, ob im Quellordner eine entsprechende Datei vorhanden ist. Datei per VBA kopieren. von: Oberschlumpf
Geschrieben am: 23. 2005 15:30:01
Hi mr
Versuch es doch mal so:
Sub DateiKopieren()
Dim lstrQuelle As String, lstrZiel As String, liSuche As Integer, liSlash As Integer
lstrQuelle = Sheets(BLATTNAME)("A1")
For liSuche = 1 To Len(lstrQuelle)
If Mid(lstrQuelle, liSuche, 1) = "\" Then
liSlash = liSlash + 1
End If
Next
lstrZiel = Right(lstrQuelle, Len(lstrQuelle) - liSlash)
lstrZiel = Sheets(BLATTNAME)("A2") & "\" & lstrZiel
FileCopy lstrQuelle, lstrZiel
Für BLATTNAME musst Du natürlich den richtigen Blattnamen eintragen.