Добрый день,
Такой вопрос: если через указанный код открываю файл, который лежит в той же папке, что и thisworkbook, проблем нет. Если перехожу в иную папку, выдает ошибку на строке Workbooks.Open, говорит, что метод open для объекта workbook завершен неверно.
Чешу репу: почему?
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Книга Excel", "*.xls", 1
.InitialFileName = ThisWorkbook.Path
.Show
For lngCount = 1 To .SelectedItems.Count
Call Workbooks.Open(.SelectedItems(lngCount))
Next lngCount
End With
Такой вопрос: если через указанный код открываю файл, который лежит в той же папке, что и thisworkbook, проблем нет. Если перехожу в иную папку, выдает ошибку на строке Workbooks.Open, говорит, что метод open для объекта workbook завершен неверно.
Чешу репу: почему?
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Книга Excel", "*.xls", 1
.InitialFileName = ThisWorkbook.Path
.Show
For lngCount = 1 To .SelectedItems.Count
Call Workbooks.Open(.SelectedItems(lngCount))
Next lngCount
End With