Страницы: 1
RSS
msoFileDialogOpen - ошибка открытия файла
 
Добрый день,    
Такой вопрос: если через указанный код открываю файл, который лежит в той же папке, что и 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
 
Попробуйте эту функцию:  
http://excelvba.ru/code/GetFileOrFolderPath
 
Код проверил - работает корректно. XL2007 Рус.
Страницы: 1
Читают тему
Наверх