unit4
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Есть макрос, который должен открывать Excel файл и считывать данные в массив.
Код:
Public articul() As String, qt_osn() As String
Public FileXLS As Object
Public QToXLSWbk As Object
Public Sub qToXLS()
Set FileXLS = CreateObject("Excel.Application")
Set QToXLSWbk = FileXLS.Workbooks.Open(dir_in, , True, , , , True)
FileXLS.Visible = False
j = 10
i = 0
With FileXLS.ActiveSheet
While Not .Cells(j, 2).Value = 0
If .Cells(i, 2) = "№ пп" Or .Cells(i, 2) <> "" Then
articul(i) = .Cells(i, 4)
qt_osn(i) = .Cells(i, 5)
If i <= 10 Then j = 10
End If
i = i + 1
j = j + 1
Wend
End With
End Sub
|
Но у меня все время выпадает ошибка на строке с workbooks.open.
В данном случае ошибка звучит так Невозможно получить свойство Open класса Workbooks .
Если убрать дополнительные параметры в методе Open, то выдает ошибку Нет доступа к файлу "5.xls". Возможно, файл поврежден, находиться на сервере, который не отвечает на запросы, или доступен только для чтения.
Сижу вторые сутки и не могу понять в чем беда(
Файлик который пытаюсь открыть тут. |
Всего записей: 37 | Зарегистр. 21-04-2006 | Отправлено: 07:17 30-05-2012 | Исправлено: unit4, 07:31 30-05-2012 |
|
