Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei per VBA kopieren

Datei per VBA kopieren
22.03.2005 16:39:18
mr_damoon
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.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei per VBA kopieren
22.03.2005 16:42:21
K.Rola
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("Scripting.FileSystemObject")
objFSO.CopyFolder Quelle, Ziel, True
End Sub

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Anzeige
AW: Datei per VBA kopieren
22.03.2005 16:48:35
mr_damoon
Das funktioniert.
Ich habe noch objFSO.CopyFolder ...
in objFSO.CopyFile ...
umbebaut und schon klappt es wie gewünscht..
Danke K.Rola
AW: Datei per VBA kopieren
22.03.2005 17:25:09
mr_damoon
Kann man die Const Strings auch variabel aus den Zellen A1 und A2 holen?
AW: Datei per VBA kopieren
22.03.2005 18:43:29
K.Rola
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ß K.Rola
AW: Datei per VBA kopieren
23.03.2005 08:46:41
c:\temp1\test123.xls (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.
Anzeige
AW: Datei per VBA kopieren
23.03.2005 15:30:01
Oberschlumpf
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).Range("A1").Value
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).Range("A2").Value & "\" & lstrZiel
FileCopy lstrQuelle, lstrZiel
End Sub

Für BLATTNAME musst Du natürlich den richtigen Blattnamen eintragen.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Datei per VBA kopieren
22.03.2005 16:51:34
Frank Sohn
Hallo,

wie wär's damit :

Private Sub Copy(ByVal SrcPath As String, _
ByVal DstPath As String, _
ByVal FileName As String)
Dim src As Variant, dst As Variant
src = SrcPath & FileName    ' Namen der Quelldatei festlegen.
dst = DstPath & FileName    ' Namen der Zieldatei festlegen.
FileCopy src, dst    ' Quell- in Zieldatei kopieren.
End Sub


Private Sub Test()
Call Copy("H:\", _
"K:\", _
"Services.txt")
End Sub


Gruss
Frank

277 Forumthreads zu ähnlichen Themen


Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
Anzeige

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
Anzeige

Guten Abend zusammen
Den ganzen Tag suchte ich Lösungen im Netz, aber ich komme nicht klar
Textbox1 enthält z.b: 9516 Meier. Jetzt möchte ich von Laufwerk O: Vorlagen den ganzen Ordner Test nach O: Aktuelle kopieren und Ihm den Namen 9516 Meier geben.
Kann die bereits darin enthalte...

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige