форма VB + макрос Access

[НиколайП]

Программа работает с БД Access, во время работы необходимо обрабатывать файлы Excel и вносить данные в БД.
В Access у меня установлен макрос:

ОткрытьТаблицу
имя таблицы:privoz
режим:Таблица
режим данных:Изменение

ВыполнитьКоманду
команда:ВыделитьВсеЗаписи

ВыполнитьКоманду
команда:Удалить

Сохранить
тип объекта:Таблица
имя объекта:privoz

ВыполнитьКоманду
команда:Сохранить

ПреобразоватьЭлектроннуюТаблицу
тип преобразования:Импорт
тип электронной таблицы:Microsoft Excel 8-10
имя таблицы:privoz
имя файла:C:\Documents and Settings\User\Мои документы\VB\laguna\Новая папка\fcsPrice\FCS060206.xls
с именами полей:Нет
диапозон:C27:F5000

но во время работы бывает необходимость изменить путь к файлу Excel или изменить диапозон ячеек в этом файле для обработки. Не удобно ,особенно для пользователя программы, залазить в Access и менять там настройки макроса , подскажите пожалуйсто как можно сделать так что бы такой макрос работал именно из формы программы, для того что бы можно было использовать переменные в необходимых случаях.

Заранее благодарен.

[blinow]

А ты попробуй преобразуй макрос в модуль VB и все увидишь.

[Olga]

Можно в поле "Имя файла" ввести
=Forms![Form1]![Text1], где Form1 - имя твоей формы, а Text1 - имя поля на форме, в котором указан путь

[НиколайП]

преобразовал , а как это всё запускать из формы VB. моей программы ?
извините за наивный вопрос ...

[Olga]

Если ты имеешь ввиду как запустить функцию с формы:
создай кнопку -> на вкладке "Свойства" -> "нажатие кнопки" (click) -> "процедура обработки события" -> ...
Окажешься в коде
пиши запуск
например, call MyProcedure

[НиколайП]

нет, Оля, это не совсем то что я имел в виду ...

я вот думаю что должно быть что-то вроде этого:

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

Text1.Text = App.Path
Set acc = CreateObject("access.application")
acc.opencurrentdatabase App.Path & "\DB\texinfo.mdb"
acc.Visible = False

acc.DoCmd.OpenTable "privoz", acViewNormal, acEdit
    acc.DoCmd.RunCommand acCmdSelectAllRecords
    acc.DoCmd.RunCommand acCmdDelete
    acc.DoCmd.Save acTable, "privoz"
    acc.DoCmd.RunCommand acCmdSave
    acc.DoCmd.TransferSpreadsheet acImport, 8, "privoz", App.Path & "\fcsPrice\FCS060206.xls", False, "C27:F5000"

это правильно будет ???

[Olga]

Думаю да

[НиколайП]

не работает

выдаёт ошибку:

прервано выполнение макрокоманды RunCommand

подскажите, в чём может быть проблемма ?

[Olga]

Может очистить таблицу с помощью SQL, например, так:

CurrentDb.Execute "DELETE * FROM [TableName];", dbFailOnError

[НиколайП]

да я вот уже подумываю может обработать файл через excel.application а потом из vb закинуть информацию в БД ....
но опять же эти апликации ... , не могу с ними разобраться ...

[Olga]

ты изначально под Access'ом работаешь или под чем?

[НиколайП]

Работаю на VB 6.0 , базы использую Access .
До этого момента все операции с Accessom выполнял через макросы, но сейчас появилась большая необходимость изменять некоторые данные для обработки через access , об этом я говорил в начале топика ...

[НиколайП]

блин , вот это я тупонул , я не включил в References библиотеку Access , и сам замучился и людей понапрасну беспокою ...

p.s: код работает нормально .