Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362997 Thu, 10 Oct 2013 10:28:46 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362997 dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362826 Thu, 10 Oct 2013 04:36:38 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362826 Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362785 Wed, 09 Oct 2013 18:36:34 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362785 Еще думаю, не может ли это быть как то связано с рекурсией, запускавшейся из под vb6? Может быть раздулся какой то файл или еще что?
Правда эта ошибка возникает и в чистом проекте где только эти 5 строчек

Добавлено
Очень жду каких-нибудь идей от гуру) сносить ОС это в последнюю очередь...стоит много программ...а бэкап вовремя сделан не был(]]> dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362782 Wed, 09 Oct 2013 18:22:35 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362782 Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362767 Wed, 09 Oct 2013 17:31:37 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362767 dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362756 Wed, 09 Oct 2013 16:49:07 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362756 Попробуй для начала полностью восстановить установку Офиса (а если в настройках там нет ничего критичного - можно вообще снести и переставить с нуля), а потом на этом компе поработать с минимальным приложением, использующим Эксель.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362750 Wed, 09 Oct 2013 16:17:44 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362750
        Dim ExcelObj As Excel.Application
        Set ExcelObj = New Excel.Application
        Dim ExWorkbook As Excel.Workbook
        Set ExWorkbook = ExcelObj.Workbooks.Add
        ExcelObj.Visible = True

на 4-й строчке]]> dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362736 Wed, 09 Oct 2013 15:35:52 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362736 Кстати операционка Win 7 X64]]> dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362652 Wed, 09 Oct 2013 13:00:52 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362652 dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362592 Wed, 09 Oct 2013 10:27:28 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362592 Цитата dec0rator @
почему нельзя использовать CreateObject("Excel.Application") при раннем связывании?

Потому что при раннем связывании делают так:

    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application


Это гарантирует, что созданный экземпляр объекта будет иметь ту же версию, что и использованная при сборке проекта референсная библиотека, а при отсутствии компонента требуемой версии приложение не запустится и вменяемо скажет, почему именно.
А определение с ранним связыванием и последующая инициализация поздним - запросто могут вызвать проблему рассогласования версий в рантайме. Причём в отличие от чисто позднего связывания ошибка, если она возникнет, будет рассказывать о чём угодно, только не о том, почему она появилась.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362437 Tue, 08 Oct 2013 18:04:51 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362437 Цитата Akina @
Более чем странно. Должно давать ошибку "Не выпрямлены руки у программиста".
Нельзя для одного и того же экземпляра объекта смешивать раннее и позднее связывание.

Хотя я еще совсем начинающий программист, я понимаю что такое раннее и позднее связывание (или думаю что понимаю).
Когда пишем
    Set ExcelObj = CreateObject("Excel.Application")
при том что переменная изначально описана как ссылка именно на Excel:
    Dim ExcelObj As Excel.Application
- где тут ошибка?
Опять же если посмотреть тут:
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.WorkSheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

Akina, объясните почему нельзя использовать CreateObject("Excel.Application") при раннем связывании?
Теперь к проблеме:
        Dim ExcelObj As Object
        Set ExcelObj = CreateObject("Excel.Application")
        ExcelObj.Visible = True

Дает у меня ошибку "Run-time error '424': Object required" на той же строчке...

Добавлено
Только что проверил, тот же код запускаю из VBA - все ОК.]]> dec0rator Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362037 Tue, 08 Oct 2013 04:39:13 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3362037 Цитата dec0rator @
Запустил на другом компе - все нормально работает...

Более чем странно. Должно давать ошибку "Не выпрямлены руки у программиста".
Нельзя для одного и того же экземпляра объекта смешивать раннее и позднее связывание.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3361996 Mon, 07 Oct 2013 20:01:47 +0000 Ошибка при CreateObject("Excel.Application") https://forum.sources.ru/index.php?showtopic=382242&view=findpost&p=3361996 Писал маленькую прогу для обновления файлов по ftp. Использовал для этого функции wininet.dll.
Файлы для обновления должны были быть записаны в Excel.
Тут и началась проблема - при создании объекта Excel появляется эта ошибка.
        Dim ExcelObj As Excel.Application
        Dim ExWorkbook As Excel.Workbook
        Dim ExSh As Excel.Worksheet
        Set ExcelObj = CreateObject("Excel.Application")
        Set ExWorkbook = ExcelObj.Workbooks.Open("C:\_Каталог\FTP\PutFiles.xlsm")
        ExcelObj.Visible = True

Ошибка появляется на 4-й строчке - CreateObject("Excel.Application"). Кстати проверял и с Word - то же самое. Создавал пустой проект и получал ту же ошибку. Переустановил VB6, Office - все то же самое.
Запустил на другом компе - все нормально работает...
Помогите, пожалуйста, разобраться, уже 2-й день ломаю голову...

Добавлено
Да, еще важный момент: приложение Excel.exe запускается, его видно в диспетчере задач]]> dec0rator Visual Basic: Общие вопросы