| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
tveritin
Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург
|
 Добавлено: Ср Фев 15, 2023 14:43 Заголовок сообщения: Запуск макроса с параметрами |
 |
|
Есть макрос
| Код: | Sub add_lines(n)
For i = 1 To n / 9
Sheets(1).Rows("19:27").Select
Selection.Copy
Sheets(1).Range("A19:T19").Select
Selection.Insert Shift:=xlDown
Next
Application.CutCopyMode = False
End Sub
|
Из Excel VBA он вызывается:
Вопрос: как его вызвать из X-языка с передачей параметра на вход процедуры add_lines ? |
|
| Вернуться к началу |
|
 |
tveritin
Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург
|
| Добавлено: Ср Фев 15, 2023 15:01 Заголовок сообщения: |
|
|
Как вызвать из х-процедуры нашел
Excel.Run("add_lines",50);
А вот как вызвать из блока VB {} ? |
|
| Вернуться к началу |
|
|
tveritin
Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург
|
| Добавлено: Ср Фев 15, 2023 15:43 Заголовок сообщения: |
|
|
| Код: | vb {
ExcelApp.Run Macro:="add_lines", Arg1:=50
}
|
тоже никак. |
|
| Вернуться к началу |
|
|
tveritin
Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург
|
| Добавлено: Ср Фев 15, 2023 15:49 Заголовок сообщения: |
|
|
ВОт оно:
| Код: | | ExcelApp.Run "add_lines", 50 |
|
|
| Вернуться к началу |
|
|
tveritin
Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург
|
| Добавлено: Ср Фев 15, 2023 15:55 Заголовок сообщения: |
|
|
еще вдогонку вопрос:
| Код: | VB {
Dim cc
cc = Sh.QueryTables(1).ResultRange.Rows.Count
};
|
Но, `return VB.cc;` возвращает 'VB.cc' а не числовое значение.
Или как еще получить значение `QueryTables(1).ResultRange.Rows.Count` за пределами VB {} ? |
|
| Вернуться к началу |
|
|
superjek
Зарегистрирован: 04.04.2022
Сообщения: 25
|
| Добавлено: Пт Фев 17, 2023 09:52 Заголовок сообщения: |
|
|
| Код: |
VB {
Dim cc
cc = 10
};
return @@VB{cc};
|
|
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
