Из модуля не исполняется код

[devf]

Здравствуйте, уважаемые!
Прошу здорово не ругатся, т.к. я только начинаю в 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

[VictorM]

Если этот код присвоен кнопке CommandButton на листе - все корректно.

Если я правильно понял задачу, используйте нарисованную кнопку и ей уже присвойте макрос из Вашего модуля. Все должно работать.

[devf]

Сообщение от VictorM

Если я правильно понял задачу, используйте нарисованную кнопку и ей уже присвойте макрос из Вашего модуля. Все должно работать.

Вот в том то и дело, что если я пишу код на листе напр (Лист1) и рисую там кнопку CommandButton1 по которой выполняется код - все хорошо. Но если тот же самый код записать в модуль и вызвать его с помощью кнопки - то происходит то, что описано выше - или переменная не определена, или требуется объект.
Пробовал просто назначить макрос "Vyvod" кнопке или через код:


Private Sub CommandButton1_Click()
Call Run("Vyvod")
End Sub

Результат тот же - ругается

[Казанский]

Так, наверно:

Set QT1 = ActiveSheet.QueryTables.Add(rs, Range("A4"))

В модуле листа QueryTables по умолчанию относится к Me, т.е. к этому листу, а в обычном модуле QueryTables без явного указания листа трактуется как неопределенная переменная.

[devf]

Сообщение от Казанский

Так, наверно:

Set QT1 = ActiveSheet.QueryTables.Add(rs, Range("A4"))

В модуле листа QueryTables по умолчанию относится к Me, т.е. к этому листу, а в обычном модуле QueryTables без явного указания листа трактуется как неопределенная переменная.

Спасибо большое - все заработало. Значит, будем знать, что в таких случаях надо указывать лист.

[Казанский]

Call Run("Vyvod")

Интересный наворот
Я понимаю, что написали в попытках заставить это работать, но прикольно. Так еще можно:

CallByName Application, "run", VbMethod, "Vyvod"

Заработало - замените на

Vyvod

[devf]

Сообщение от Казанский

Интересный наворот
Я понимаю, что написали в попытках заставить это работать, но прикольно. Так еще можно:

CallByName Application, "run", VbMethod, "Vyvod"

Заработало - замените на

Vyvod

Спасибо - и это заработало!