Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei im WinExplorer finden und verschieben

Forumthread: Datei im WinExplorer finden und verschieben

Datei im WinExplorer finden und verschieben
16.04.2016 15:38:01
Rainer
Guten Tag,
die Datei 'SamHilfe.pdf' soll in den Ordner 'D:\SamLibri' kopiert werden. Der Pfad von 'SamHilfe.pdf' ist unbekannt. Die Datei kann sich auf einem x-beliebigen Laufwerk befinden. Eine Prozedur soll nun den Windows-Explorer öffnen und den Anwender auffordern 'SamHilfe.pdf' auszuwählen. Das Kopieren in den Zielordner 'D:\SamLibri' soll die Prozedur erledigen. Kann mir bitte jemand bei der Lösung dieser Aufgabe helfen.
Liebe Grüße. Rainer.

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei im WinExplorer finden und verschieben
16.04.2016 15:58:28
Arthur
Hallo Rainer.
Mit der folgenden Zeile kannst du den Explorer öffnen und den Dateinamen auslesen. (Fast) komplette Lösungen findest du, wenn du hier im Forum nach "fileexplorer" suchst.
FileName = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls), *.xls")
Gruß, Arthur.

Anzeige
AW: Datei im WinExplorer finden und verschieben
16.04.2016 17:46:42
Rainer
Hallo Arthur,
danke für die Antwort. Leider kann ich 'fileexplorer' hier im Forum nicht finden. Inzwischen habe ich es geschafft, per Prozedur den Explorer zu öffnen und die Datei 'SamHilfe.pdf' auszuwählen. Jetzt möchte ich die ausgewählte Datei im Ordner 'D:\SamLibri' kopieren. Das aber klappt noch nicht weil ich mit der Deklaration nicht zurecht komme. Objekt erforderlich! Da es sich um eine PDF-Datei handelt komm ich mit Workbook-Objekt nicht weit. Auch die Datei As Object funktioniert nicht. Ich brauche noch mehr Hilfe.
Gruß Rainer.

Anzeige
AW: Datei im WinExplorer finden und verschieben
16.04.2016 20:23:10
Michael
Hi Rainer,
was hast Du denn? Pfad und Dateiname?
Dann nimm den VBA-Befehle filecopy.
Schöne Grüße,
Michael

AW: Datei im WinExplorer finden und verschieben
16.04.2016 21:22:45
Rainer
Hallo Michael,
jetzt hab ich die Lösung. Falls es jemand interessiert, folgender Code funktioniert. Falls jemand einen Fehler darin entdeckt bin ich über jeden Hinweis dankbar. Vielen Dank euch und gehabt euch wohl.
Gruß Rainer.
Sub fremdeDatei_verschieben()
Dim varDatei As Variant
Dim Quelle As String
Dim HilfeDatei As Variant
Dim fso As Object
varDatei = Application.GetOpenFilename()
If varDatei = False Then Exit Sub
Quelle = vbCrLf & varDatei
HilfeDatei = Mid(Quelle, InStrRev(Quelle, "\") + 1)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile HilfeDatei, ThisWorkbook.Path & "\" & HilfeDatei
Set fso = Nothing
End Sub

Anzeige
AW: Datei im WinExplorer finden und verschieben
17.04.2016 16:16:50
Michael
Hi Rainer,
ich habe mir ein paar Sachen zu MoveFile angesehen: das scheint etwas tricky zu sein und sollte vielleicht mit einer Fehlerabfangroutine gekoppelt werden.
Allerdings ist mir erst jetzt ein Widerspruch in der Fragestellung aufgefallen: im Titel steht "verschieben", im Text "kopieren"...
Was ich an Deinem Code nicht verstehe, ist der Umweg über Quelle und da ganz besonders das vbCrLf - beim nächsten Befehl wird sowieso nur der Teil rechts übernommen, so what?
Da sollte eine Zeile genügen: 
HilfeDatei = Mid(varDatei, InStrRev(varDatei, "\") + 1)
Schöne Grüße,
Michael

Anzeige
AW: Datei im WinExplorer finden und verschieben
18.04.2016 18:32:19
Rainer
Hallo Michael,
inzwischen habe ich mich auch noch mal intensiv mit der Sache beschäftigt.
1. Im vorliegenden Fall ist es zwar egal, ob die fremde Datei verschoben oder kopiert wird. Kopieren ist aber ideal.
2. Ja, du hast Recht. Die Variable "Quelle" ist überflüssig.
3. Deine Bedenken, dass "MoveFile" nicht stabil laufen könnte habe ich als Tipp aufgenommen und nach einer anderen Lösung gesucht. Beigefügter Code läuft bei mir perfekt.
Und ganz herzlichen Dank für deine Mitarbeit.
Liebe Grüße
Rainer.
Sub fremdeDatei_SaveAs()
Dim varDatei As Variant
Dim HilfeDatei As String
varDatei = Application.GetOpenFilename()
If varDatei = False Then Exit Sub
HilfeDatei = Mid(varDatei, InStrRev(varDatei, "\") + 1)
FileCopy varDatei, ThisWorkbook.Path & "\" & HilfeDatei
End Sub

Anzeige
Sehr schön! Noch ne Kleinigkeit
18.04.2016 19:18:49
Michael
Hi Rainer,
na, der Code sieht doch klasse aus: nur ein paar Zeilen, die tun, was sie sollen.
Daß der thisworkbook.path vorhanden ist, sollte man meinen (es sei denn, es handelt sich um eine neue, noch nicht gespeicherte Datei).
Grundsätzlich kann man erzwingen, daß ein Verzeichnis angelegt wird, mit API:
Declare Function MakePath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long
grad mal wieder hier gesehen bei:
https://www.herber.de/forum/messages/1488666.html
Einfacher geht ein "Dir" im Vorfeld: 
Sub test()
Dim pfad As String
pfad = "c:\irgendeinPfad"
If Dir(pfad & "\*.*") = "" Then MsgBox "Fehlerbehandlung": Exit Sub
End Sub
Das nur am Rande.
Liebe Grüße zurück,
Michael

Anzeige
AW: Sehr schön! Noch ne Kleinigkeit
18.04.2016 23:47:01
Rainer
Hi Michael,
die entsprechende Prozedur beginnt damit, im Ordner von ThisWorkbook nach der erforderlichen Hilfedatei zu suchen. Endet die Suche mit negativem Ergebnis wird der Benutzer aufgefordert, zu verraten wo denn die Hilfedatei wohnt. Mehr möchte ich vom Benutzer nicht verlangen. Den Rest soll eben die Prozedur erledigen - nämlich die Hilfedatei in den Ordner zu kopieren in dem sich ThisWorkbook befindet. Und das klappt ja jetzt "Juhuu!"
Aber vielen Dank für die zusätzliche Info. Da mir das Programmieren sehr viel Spaß macht, sauge ich natürlich jeden Hinweis gierig auf. Und sicher war das auch nicht meine letzte Frage an das beste Forum der Welt. Gehab dich Wohl!!
Liebe Grüße
Rainer.

Anzeige
Das hört man gerne...
19.04.2016 16:29:38
Michael
Hi Rainer,
derweil es mir ganz genau so geht, sowohl mit dem Programmieren als auch mit diesem Forum: das flutscht einfach!
LG & happy exceling,
Michael
;

Forumthreads zu verwandten Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
VBA-Makro zum Gruppieren einzelner Tage
Christoph

Hallo Leute!
Bin neu hier im Forum und da ich relativ wenig Ahnung von Excel und VBA habe, mich aber beruflich in Zukunft häufiger damit beschäftigen werde, bin ich noch auf ein wenig Hilfe angewiesen.
Ich bastle gerade an einem Makro, das innerhalb einer Monats-Tabelle die einzelnen Ta...
26.09.2008 10:22:00
Thread-ID: 1012530
10 Beiträge
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Formeln in Zellen tretz VBA beibehalten
Enrico

Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
31.12.2008 15:11:47
Thread-ID: 1036151
2 Beiträge
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
xls Datei in Unterordnern suchen und öffnen
Markus

Hallo zusammen,
ich habe ein kleines Makro geschrieben, was mir eine Excel-Datei in einem Ordner suchen soll und diese dann öffnet. Das funktioniert auch soweit. Jetzt möchte ich aber die Unterordner, die sich in diesem Ordner befinden, einbinden. Leider bekomm ich es nicht hin.
Hier m...
28.04.2009 15:55:22
Thread-ID: 1071656
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige