|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.01.2012, 20:05 | #1 |
Пользователь
Регистрация: 14.01.2012
Сообщений: 17
|
Из модуля не исполняется код
Здравствуйте, уважаемые!
Прошу здорово не ругатся, т.к. я только начинаю в VBA. Суть вопроса: Имею код, который связывается с Access и вытаскивает таблицу на лист Excell. Если этот код присвоен кнопке CommandButton на листе - все корректно. Но если я помещаю код в модуль и пытаюсь вызвать его оттуда, то VBA ругается "Variable not defined" или, когда уберешь Option Explicit - "Object required". Если не совсем глупый вопрос - прошу помочь. Код кнопки: Private Sub CommandButton1_Click() Call Run("Vyvod") End Sub Код в модуле: Sub Vyvod() Dim cn As New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=D:\vba_t\Zakaz.mdb" cn.Open Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM Zayav ", cn Dim QT1 As QueryTable Set QT1 = QueryTables.Add(rs, Range("A4")) QT1.Refresh 'Set cn = Nothing cn.Close End Sub |
28.01.2012, 20:50 | #2 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
28.01.2012, 21:10 | #3 | |
Пользователь
Регистрация: 14.01.2012
Сообщений: 17
|
Цитата:
Пробовал просто назначить макрос "Vyvod" кнопке или через код: Private Sub CommandButton1_Click() Call Run("Vyvod") End Sub Результат тот же - ругается |
|
28.01.2012, 22:29 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Так, наверно:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Последний раз редактировалось Казанский; 28.01.2012 в 22:32. |
28.01.2012, 22:42 | #5 |
Пользователь
Регистрация: 14.01.2012
Сообщений: 17
|
Спасибо большое - все заработало. Значит, будем знать, что в таких случаях надо указывать лист.
|
28.01.2012, 22:42 | #6 | |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Цитата:
Я понимаю, что написали в попытках заставить это работать, но прикольно. Так еще можно: Код:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
28.01.2012, 23:23 | #7 |
Пользователь
Регистрация: 14.01.2012
Сообщений: 17
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поток исполняется 15 раз | grafgrial | Общие вопросы Delphi | 3 | 07.06.2011 12:42 |
Доп.код,обратный код,прямой код вычисления | Lukas077 | Помощь студентам | 0 | 20.03.2011 12:07 |
Создание модуля | Arassir | Общие вопросы Delphi | 1 | 13.03.2011 15:28 |
LINQ.. исполняется впервые))) | Teksa | Общие вопросы .NET | 0 | 06.10.2010 10:17 |
Есть ли возможность выполнить код при инициализации подключаемого модуля? | shurik_7866 | Общие вопросы C/C++ | 0 | 07.12.2009 22:59 |