Друзья, был простенький макрос для Excel
Суть: документ в ворде содержал картинки, макрос вызванный из-под ворда находил номера страниц, на которых есть картинки
Затем вызывал файл Excel (который находился в той же папке, что и текущий документ ворда) и найденные номера страниц по порядку вписывал в нужную строку
Так вот, с некоторых пор перед открытием любого файла Excel возникает ошибка "stdole32.tlb". Нажимаешь ОК - и все загружается. Неприятно, но не критично. Переустановка, чистка реестра, танцы с бубном, угрозы сжечь комп - не подействовали, Excel упорно выдает ошибку stdole32.tlb
Соответственно и макрос перестал записывать нужные номера (т к в макросе есть автоматическое открытие и закрытие документа Excel, а автоматически он теперь не открывает)
Собственно сам вопрос: можно ли перед вызовом макроса просто открыть документ Excel, а функции открытия-закрытия из макроса убрать? Пусть он прямо в открытом ячейки заполняет, а сохранить и закрыть смогу уже сам руками?
Вот последние строки макроса (наверное их и нужно переписывать), подскажите пожалуйста как исправить? Могу прислать весь макрос, он небольшой
Суть: документ в ворде содержал картинки, макрос вызванный из-под ворда находил номера страниц, на которых есть картинки
Затем вызывал файл Excel (который находился в той же папке, что и текущий документ ворда) и найденные номера страниц по порядку вписывал в нужную строку
Так вот, с некоторых пор перед открытием любого файла Excel возникает ошибка "stdole32.tlb". Нажимаешь ОК - и все загружается. Неприятно, но не критично. Переустановка, чистка реестра, танцы с бубном, угрозы сжечь комп - не подействовали, Excel упорно выдает ошибку stdole32.tlb
Соответственно и макрос перестал записывать нужные номера (т к в макросе есть автоматическое открытие и закрытие документа Excel, а автоматически он теперь не открывает)
Собственно сам вопрос: можно ли перед вызовом макроса просто открыть документ Excel, а функции открытия-закрытия из макроса убрать? Пусть он прямо в открытом ячейки заполняет, а сохранить и закрыть смогу уже сам руками?
Вот последние строки макроса (наверное их и нужно переписывать), подскажите пожалуйста как исправить? Могу прислать весь макрос, он небольшой
Код |
---|
Set xl = CreateObject("Excel.Application") Set xlBook = xl.workbooks.Open(filepath) For i = 1 To UBound(aPages) If aPages(i) > 0 Then xlBook.Sheets(1).Cells(Row, Column).Value = i Column = Column + 1 End If Next xlBook.Save xl.Quit End Sub |