Правильно выдает. GetOpenFilename возвращает Вам в Вашем случае массив значенийю Надо так:
Public Sub www()
Dim Invoice, i%
Invoice = Application.GetOpenFilename(FileFilter:="Файлы .xls, *.xls", Title:="Открыть файлы ...", MultiSelect:=True)
For i = LBound(Invoice) To UBound(Invoice)
Workbooks.OpenText Filename:=Invoice(i)
Next
End Sub

Сразу не заметил. Почему Workbooks.OpenText? Вы же Эксовские файлы открываете а не текстовые. Просто: Workbooks.Open