VBA и 1с8.0

[dimonl]

Гуру помогите новичку! Нужно из 1с80 получить доступ к excel через com. В нем выполнить процедуру макроса и файл сохранить.

Знаю как плучить доступ:

xl = Новый COMОбъект("Excel.Application");
Книга=xl.Application.Workbooks.Open(ИмяФайла);
ТекЛист=Книга.WorkSheets(1);

xl.Application.Quit();

Но как выполнить в 1с8 скрипт на visual basic(макрос)?:

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True


Не могу найти доков на эту тему! Помогите!

[uhm]

Пробовал так?

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

ТекЛист.Columns("A:A").Select
ТекЛист.Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True


[dimonl]

пробовал! При сохранении кода в конфигураторе 1с ошибки:

{Форма.Форма(164,34)}: Неопознанный оператор
ТекЛист.Columns("A:A").Select<<?>>;
{Форма.Форма(168,34)}: Неопознанный оператор
ТекЛист.Selection.TextToColumns <<?>>Destination:=Range("A1"), DataType:=xlDelimited, TextQua

[alibek]

А с каких пор в 1С стали работать макросы на VB?

[dimonl]

Посмотри ссылку:
http://1c.realnet.ru/kuban/138706.html

У них работает!

[alibek]

Во-первых, там не VB. Во-вторых, каждая строка завершается точкой с запятой.

[dimonl]

Ну это VBA, а точкой с запятой я ставил. Может надо на форуме по 1с80 спрашивать?

[GSerg]

Какой это нафиг VBA?

[dimonl]

Этот код из макроса в excel:

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True

Насколько я знаю макрос на VBA!

[GSerg]

Это макрос на VBA, а причём 1С к VBA?

[dimonl]

из 1с мне нужен доступ к файлу excel. Это таким образом делается:

xl = Новый COMОбъект("Excel.Application");
Книга=xl.Application.Workbooks.Open(ИмяФайла);
ТекЛист=Книга.WorkSheets(1);

далее мне надо этот файл обработать с помощью макроса.

[alibek]

Помоему ты сам не понимаешь, что тебе надо.

[dimonl]

Нашел решение!

макрос переносить не обязательно его проще в экселе оставить.
запускается макрос из объекта
Application.Run("ИмяРабочейКниги!ИмяМакроса");
рабочую книгу надо перед этим открыть

Но не могу добиться результата!

файл KeuneR2.xls
книга KeuneR
макрос exel

Даю код:

xl = Новый COMОбъект("Excel.Application");
Книга=xl.Application.Workbooks.Open(KeuneR2.xls);
ТекЛист=Книга.WorkSheets(1);
xl.Application.Run("KeuneR!exel");

В 1с предприятии при запуске обработки ошибка:

{Форма.Форма(164)}: Ошибка при вызове метода контекста (Run): Произошла исключительная ситуация (Microsoft Excel): Не найден макрос 'KeuneR!exel'.
xl.Application.Run("KeuneR!exel");

[GSerg]

В модуль макрос...

[dimonl]

Что имелосьв виду?

В модуль макрос...

[GSerg]

Макрос - в модуль...