Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Explorer öffnen Datei und Speicherort auswählen u

Explorer öffnen Datei und Speicherort auswählen u
27.01.2013 21:38:31
Ludmilla
Userbild
Hallo zusammen!
Ich habe eine UserForm erstellt, welches folgendes beinhaltet:
1. ein Button mit welchem man eine Datei auswählen kann.
Code:

Private Sub Datei_auswählen_Click()
FilePath = Application.GetOpenFilename("PDF Files (*.pdf), *pdf")
If FilePath  False Then
TextBox1.Value = FilePath
End If
End Sub

2. ein Button mit welchem man die UserForm schliessen kann:
Code:

Private Sub abbrechen_Click()
End
End Sub

Probleme:
1. Kopieren nach: Nun weiss ich nicht wie ich es geht, dass ich den Explorer öffne und ein Zielort auswählen kann
2. Kopieren: ich möchte nun die bei "Datei auswählen" Datei nach "Kopieren nach" Pfad kopieren.
wäre über die Lösung meiner Probleme sehr froh!
Ich danke euch schon im Vorraus!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Explorer öffnen Datei und Speicherort auswählen u
27.01.2013 22:04:54
Dirk
du könntest bei "kopieren nach" eine Ordneransicht erscheinen lassen.
Private Sub CommandButton1_Click()
Dim ordner As String
ordner = GetFolder("c:")
lbl1.Caption = ordner
End Sub
Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show  -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function
kopieren kannst du mit folgendem Befehl
filecopy "Quelle", "ziel"
Vieleicht hilf dir das weiter.
Gruß
Dirk
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen