Добавить в модуль книги код другим макросом

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста по Excel 2003, у меня в модуле "эта книга" следующий ниже код выполняет запрос к базе в Access и загружает данные из Таблицы1 на Лист1 в Excel:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim dbs As DAO.Database
Dim rs1 As DAO.Recordset
On Error Resume Next
Dim Filename As Variant
Dim strFileName As String
Filename = "БазаДанных.mdb"
strFileName = Sheets("База").TextBox1
If Dir(strFileName & Filename) <> "" Then
Set dbs = DAO.OpenDatabase(strFileName & Filename, True, True, ";pwd=база")
End If
Set rs1 = dbs.OpenRecordset("SELECT * FROM ТАБЛИЦА1")
Dim i As Variant
Sheets("Лист1").Columns("A:A").Clea rContents
i = 1
Do While Not rs1.EOF
Sheets("Лист1").Cells(i, 1).Value = rs1.Fields("Номер")
i = i + 1
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
dbs.Close
Set dbs = Nothing
Application.ScreenUpdating = True
End Sub

Вопрос в следующем: как можно другим макросом, например, это будет щелчок по кнопке на форме, сделать чтобы в данный код в модуле "эта книга" добавлялось:

Dim rs2 As DAO.Recordset
Set rs2 = dbs.OpenRecordset("SELECT * FROM ТАБЛИЦА2")
Dim i As Variant
Sheets("Лист2").Columns("A:A").Clea rContents
i = 1
Do While Not rs2.EOF
Sheets("Лист1").Cells(i, 1).Value = rs2.Fields("Номер")
i = i + 1
rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing

т.е. чтобы таким образом можно было прописать загрузку второй таблицы из базы Access?
Заранее спасибо.

[alex77755]

Sheets("Лист2").Columns("A:A").Clea rContents

Ну эта строка точно вызовет ошибку. А в чём ограничение на ручное добавление строк в макрос?
В принципе есть возможность записать программно макрос. Только в твоём случае нужно же будет сначала найти место куда вписывать строки. Такого я не делал.

[The_Prist]

Пробуйте. Вписываете в ячейку А2 текст для вставки и выбираете файлы, в которые необходимо вставить.
Только учитывайте, что для работы с VBA проектом необходимо в параметрах безопасности Excel проставить доверие к VBA проекту.

[ольгаг]

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

Пробуйте. Вписываете в ячейку А2 текст для вставки и выбираете файлы, в которые необходимо вставить.
Только учитывайте, что для работы с VBA проектом необходимо в параметрах безопасности Excel проставить доверие к VBA проекту.

Спасибо большое за подробный ответ!
Я обязательно попробую это сделать.
Прошу прощения за ошибку в моем коде:

Dim rs2 As DAO.Recordset
Set rs2 = dbs.OpenRecordset("SELECT * FROM ТАБЛИЦА2")
Dim i As Variant
Sheets("Лист2").Columns("A:A").Clea rContents
i = 1
Do While Not rs2.EOF
Sheets("Лист2").Cells(i, 1).Value = rs2.Fields("Номер")
i = i + 1
rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing

Хотелось бы подробнее пояснить мою задачу:
данный код добавляет на другой лист (Лист2) данные из другой (второй) таблицы Access. Другими словами, каждая таблица Access загружает свои данные (поля) на отдельный лист Excel. И мне хотелось бы чтобы при добавлении в Access новой таблицы, можно было макросом (не заходя и не добавляя вручную) дописать в модуле "Эта Книга" код, чтобы далее при открытии книги Excel данные новой таблицы добавились на новый лист (новый лист Excel при этом будет создаваться другим макросом).

[doober]

Если я правильно понял вашу задумку
Где Range("MyTable") поименованый динамичный диапазон например на первом листе

Лист2 Таблица2
Лист3 Таблица3
Лист4 Таблица7
Лист5 Таблица4
Лист6 Таблица5

Sub Get_Data()
 Dim X 
X=Sheets(1).Range("MyTable")

        For n = 1 To Ubound(X)
                Dim rs2 As DAO.Recordset
                Set rs2 = dbs.OpenRecordset("SELECT Номер FROM  " & X(n, 2))            
                Sheets(X(n, 1)).Columns("A:A").ClearContents
                rs2.Sheets(X(n, 1)).Range("A1").CopyFromRecordset rs2
                rs2.Close
                Set rs2 = Nothing
        Next
End Sub

[alex77755]

И мне хотелось бы чтобы при добавлении в Access новой таблицы, можно было макросом (не заходя и не добавляя вручную) дописать в модуле "Эта Книга" код

Во первых: где должен быть макрос?
Во вторых: кто его должен запускать?
В третьих: Макрос дозаписывания макроса будет как миниум в два раза больше по объёму дозаписываемых строк
В четвёртых: сама процедура определения места дописывания довольно сложна.
Вывод: нодо менять подход!

И мне хотелось бы чтобы при добавлении в Access новой таблицы

это подразумевает организацию переборов всех таблиц!! И не более.
Алгоритм такой: по всем таблицам, по всем строкам, по всем полям