Перенос VB c Excel на другую машину

[Sergey190]

Когда я переношу работающую программу с MSExcel Object Library 10 reference на машину, где MSOffice2000 и эта библиотека 9 версии, то программа перестает работать. Приходится заново перетранслировать на той машине, только переотметив references. Думаю, что на Office97 придется делать это по третьему разу.
можно ли сделать это как-то только на первой машине, чтобы работало на более старых оффисах?

[RayShade]

Ага.

Надо просто не подключать никаких библиотек, все вызовы типа

Код: Выделить всё

Dim xl as New Excel.Application

поменять на конструкцию типа

Код: Выделить всё

dim xl as object
set xl = createobject("Excel.Application")

и все.

[Sergey190]

Спасибо, но если я ставлю
DIM xl ...
SET xl ...

General Declarations формы и отключаю в References ссылку на MS Excel Object Library 10, то при запуске сразу выскакивает

Compile error: Invalid outside procedure и указывает на оператор
SET xl ...

Может что-то другое подключить надо? Откуда пр-ма узнает, что такое Excel.Application?

[RayShade]

Учите матчасть.

Set нельзя указывать в одном блоке с Dim естесвенно. Это надо делать уже дальше в коде.

Короче, смотрим друэжно применяемость Set и для чего он вообще.

[Sergey190]

Да, спасибо, с Set я оплошал.

Но все же этот способ имеет, видимо, ограниченное применение.
У меня после замены по этому рецепту и отключения ссылки на MS Excel Object Library 10 программа перестала работать, т.к. в ней используется метод
wbook.SaveAs FileName:=...,FileFormat:=xlDBF4, CreateBackup:=False
сохранения в DBF-файл
и он не отрабатывается, дает ошибку, которой не было раньше.
Если бы я этого не применял, то прошло бы.

[GSerg]

А ты и от именованных параметров откажись. По порядку их.

[Sergey190]

А ты и от именованных параметров откажись. По порядку их.

Извините, не понял фразу совсем. Какие параметры в моей неисполняющейся строке считать именоваными? Что располагать по порядку?Параметры Filename, Fileformat,CreateBackup перечислены в том порядке, какой в хелпе по Excel

[GSerg]

wbook.SaveAs "c:\1.dbf", xlDBF4, False

Аааа
Так константу xlDBF4 теперь VB не знает Цифирью её! Или объявляй через const.