Hallo,
gleich die nächste Frage: Ich wollte in einem userform einen »Browse-
Button« machen, der einen Dialog aufruft, mit dem der User eine Datei
aus dem FileSystem aussuchen kann.
Der Name (und natürlich Pfad) der Datei sollte dann an ein Text-Feld
des userforms zurück gegeben werden.
Kann mir da mal jemand bitte einen Tipp geben, wo ich da ansetzen
kann? Ich habe mir jetzt schon die Finger wund gesucht…
Danke
Tobias
Moin.
Gegenfrage: Welche Version benutzt Du?
Schöne Grüße
Leo
Hallo,
Hi,
Dim strDatei as String
strDatei = Application.GetOpenFilename
Gruß.Timo
Hallo,
gelöst habe ich das jetzt wie folgt (wobei myFile eine
globale Variable ist, die weiterverarbeitet wird):
Private Sub ButtonBrowseEigeneDatei\_Click()
Dim dlg As Dialog
Dim fn As String
Set dlg = Dialogs(wdDialogFileOpen)
With dlg
If .Display = -1 Then
myFile = .Name
Else
Exit Sub
End If
End With
Set dlg = Nothing
fnArr = Split(myFile, ":")
fn = fnArr(UBound(fnArr))
TextEigeneDatei.Text = fn
End Sub
Function Split(ByVal inp As String, Optional delim As String = ",")
As Variant
' Chris Rae's VBA Code Archive - http://chrisrae.com/vba
' Code written by Chris Rae, 25/5/00
Dim outarray() As Variant
Dim arrsize As Integer
While InStr(inp, delim) \> 0
ReDim Preserve outarray(0 To arrsize) As Variant
outarray(arrsize) = Left(inp, InStr(inp, delim) - 1)
inp = Mid(inp, InStr(inp, delim) + Len(delim))
arrsize = arrsize + 1
Wend
' We still have one element left
ReDim Preserve outarray(0 To arrsize) As Variant
outarray(arrsize) = inp
Split = outarray
End Function
Vielleicht findet sich aber noch eine elegantere Lösung …
Gruß
Tobias
Gegenfrage: Welche Version benutzt Du?
Das muss laufen auf
Word 2003 für Windows
Word 2004 für Mac
Gruß
Tobias
Dim strDatei as String
strDatei = Application.GetOpenFilename
Hallo Timo,
das läuft so bei mir nicht (Word 2004 für Mac, Word 2003 für Windows).
Aber danke.
Gruß
Tobias
Fehlermeldung? owT
.