Hallo
Vorheriges Posting ist nur für Ordnerauswahl. Diesmal mit Dateiauswahl und kürzer.
'Dateien öffnen:
Sub Text_Datei_öffnen_1()
Dim DatName As String
DatName = Application.GetOpenFilename("Textdateien (*.txt), *.txt", , "Auswählen:")
If Mid(DatName, 2, 1) = ":" Then
Workbooks.OpenText Filename:=DatName, Other:=True, OtherChar:="|", _
DecimalSeparator:=".", ThousandsSeparator:=","
End If
End Sub
Sub Text_Datei_öffnen_2()
Dim DatName As String
Dim cDatei
cDatei = Application.Dialogs(xlDialogOpen).Show(arg9:="Textdateien, *.txt")
MsgBox cDatei
End Sub
Sub Excel_Datei_öffnen_schliessen()
Dim DatName As String
DatName = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
If Mid(DatName, 2, 1) = ":" Then
MsgBox DatName & " wird geöffnet"
Workbooks.Open DatName
End If
' Dein Makro
Application.Dialogs(xlDialogSaveAs).Show DatName
End Sub
mfg, GraFri.
|