Sub
ExcelDateiÖffnen()
Dim
ExcelSheet
As
Object
Dim
selectedPaths()
As
String
With
Application.FileDialog(FileDialogType:=msoFileDialogOpen)
.Title =
"Wähle Excel-Datei aus"
.InitialFileName =
"*.xls"
If
Application.FileDialog(FileDialogType:=msoFileDialogOpen).Show = -1
Then
ReDim
selectedPaths(.SelectedItems.Count - 1)
For
i = 0
To
.SelectedItems.Count - 1
selectedPaths(i) = .SelectedItems(i + 1)
Next
Set
ExcelSheet = CreateObject(
"excel.Application"
).workbooks.Open(selectedPaths(0))
ExcelSheet.Application.Visible =
True
Else
MsgBox
"Vorgang abgebrochen"
End
If
End
With
End
Sub