Das Archiv des Excel-Forums
Dialogfenster zum kopieren
- Dialogfenster zum kopieren von Andre´ vom 05.01.2008 21:30:30
- AW: Dialogfenster zum kopieren - von {Boris} am 05.01.2008 21:46:29
- AW: Dialogfenster zum kopieren - von Andre´ am 05.01.2008 21:56:36
- AW: Dialogfenster zum kopieren - von {Boris} am 05.01.2008 22:16:51
- Setz noch 1 Zeile dazu... - von {Boris} am 05.01.2008 22:21:01
- AW: Dialogfenster zum kopieren - von Andre´ am 05.01.2008 22:30:04
- Keine Ahnung.... - von {Boris} am 05.01.2008 22:49:29
- AW: Dialogfenster zum kopieren - von K.Rola am 06.01.2008 12:20:44
- AW: Dialogfenster zum kopieren - von Andre´ am 06.01.2008 18:02:38
- AW: Dialogfenster zum kopieren - von Andre´ am 06.01.2008 18:02:38
- Keine Ahnung.... - von {Boris} am 05.01.2008 22:49:29
- Setz noch 1 Zeile dazu... - von {Boris} am 05.01.2008 22:21:01
- AW: Dialogfenster zum kopieren - von {Boris} am 05.01.2008 22:16:51
- AW: Dialogfenster zum kopieren - von Andre´ am 05.01.2008 21:56:36
 |
Betrifft: Dialogfenster zum kopieren
von: Andre´
Hallo alle zusammen,
ich habe in Zelle A2 den Pfad stehen, wo alle Dateien die mit SS... beginnen
in einem Dialogfenster angezeigt werden sollen.
Wenn ich eine Datei markiere, soll bei Druck auf Kopieren die Datei in den Zielpfad
der in A1 steht kopiert werden.
Kann mir bitte Jemand dabei behilflich sein dies zu realisieren.
Danke im Voraus.
MFG Andre
 |
Betrifft: AW: Dialogfenster zum kopieren
von: {Boris}
Geschrieben am: 05.01.2008 21:46:29
Hi Andre,
benutze die GetOpenFileName-Methode - damit wird nix geöffnet, sondern nur der gesamte Pfad der angewählten Datei zurückgegeben.
Mit Hilfe dieses Pfades kannst Du dann mit der FileCopy-Methode die Datei in dem Zielpfad abspeichern.
Grüße Boris
|
Betrifft: AW: Dialogfenster zum kopieren
von: Andre´
Hallo Boris,
danke für den Tipp, hast Du dafür ein Makro auf Lager.
MFG Andre
|
Betrifft: AW: Dialogfenster zum kopieren
von: {Boris}
Geschrieben am: 05.01.2008 22:16:51
Hi André,
Option Explicit
Sub Datei_kopieren()
Dim strFile As String
Dim strPath As String
On Error GoTo Uups
strFile = Application.GetOpenFilename(, , "Welche Datei soll´s denn sein?")
If strFile = "Falsch" Then Exit Sub
strPath = Range("A1") & Mid(strFile, InStrRev(strFile, "\"))
FileCopy strFile, strPath
MsgBox "Erfolgreich kopiert!", , "Gebe bekannt..."
Exit Sub
Uups:
MsgBox "Datei kann nicht kopiert werden", vbInformation, "Gebe bekannt..."
End Sub
Grüße Boris
|
Betrifft: Setz noch 1 Zeile dazu...
von: {Boris}
Hi André,
zwischen "On Error Goto Uups" und strFile = .... füge ein:
ChDir Range("A2")
Grüße Boris
|
Betrifft: AW: Dialogfenster zum kopieren
von: Andre´
Geschrieben am: 05.01.2008 22:30:04
Hallo Boris,
Vielen Dank für die Hilfe.
Funktioniert ganz gut. Gibt es noch die Möglichkeit nur die Dateien anzuzeigen die mit SS beginnen.
MFG Andre
|
Betrifft: Keine Ahnung....
von: {Boris}
Hi André,
Frage daher noch offen.
Grüße Boris
|
Betrifft: AW: Dialogfenster zum kopieren
von: K.Rola
Geschrieben am: 06.01.2008 12:20:44
Hallo,
Sub FileDialog_File_Picker()
Dim strFile As String
With Application.FileDialog(3)
.InitialFileName = "C:\ordner\ss*"
.InitialView = 2
If .Show = -1 Then
strFile = .SelectedItems(1)
MsgBox strFile
Else
MsgBox "Nix gewählt!"
End If
End With
End Sub
Gruß K.Rola
|
Betrifft: AW: Dialogfenster zum kopieren
von: Andre´
Hallo K.Rola,
DANKE für Deine Hilfe. Mit der Kombination von Boris und Deiner Variante funktioniert es :-))
MFG Andre
| |
