Помогите с написанием макроса в экселе, хелп.

[xbusss]

Помогите с написанием макроса в экселе, хелп.

Есть вот такой макрос:

Sub mozg1()

Range("A1").Select

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.aaa/aaa.shtml?1189711",'>http://www.aaa/aaa.shtml?1189711", Destination:=Range("A1"))

.Name = "aaa.shtml?1189711"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "46"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

End Sub

Этот макрос осуществляет запрос, по заданному адресу (http://www.aaa/aaa.shtml?1189711) и берет данные из 46-ой таблицы и вставляет их в новый лист экселя.

А нужно сделать следующим образом, чтоб заданный адрес брался из листа 5 например(из ячейки А1) потом цикл (запрос+вставка данных на новый лист) и заново, но адрес уже берется из ячейки А2, короче чтоб адреса запросов брались поочередно с листа 5 из первого столбца. Нужно цикл сделать и переменные описать, борюсь 2-ой день, но никак, ПОМОГИТЕ ! аська 338160622, мыло 5615(собака)inbox.ru. нахожу похожие примеры но что-то никак. Заранее спасибо всем откликнувшимся.

[$traykeR]

Помогите с написанием макроса в экселе, хелп.

Вот есть отличная книжка, говорят многим помогает. Юзай.

Название: Использование макросов в Excel. 2-е изд.

Автор: С. Роман

Издательство: Питер, 2004 г., 507 стр.

Формат: DJVU

Размер: 8.03 Мб

Несмотря на мощные функциональные возможности, обеспечиваемые пользовательским интерфейсом Excel, существует ряд задач, выполнение которых возможно только программным путем. Книга "Использование макросов в Excel" представляет собой введение в программирование на Excel VBA, содержащее примеры решения различных практических задач, возникающих при работе в Excel.

Материал книги рассчитан на пользователей Excel, а также программистов, которые не знакомы с объектной моделью Excel. Наряду с разделами, посвященными разработке макросов для Excel 2002, здесь излагается вводный курс по написанию макросов и программ в среде Excel.

Скачать Использование макросов в Excel. 2-е изд. зеркало.

[yuriks]

Делаеш процедуру с параметрами

Sub mozg1(url As string, queryname as string)ActiveWorkbook.Worksheets.AddWith ActiveSheet.QueryTables.Add(Connection:= _"URL;" & _url & _Destination:=Range("A1")).Name = queryname.FieldNames = True...

И другую

Sub mozg2()n = 10Set s = Sheets("Лист5")For i = 1 To n	Call mozg1(s.Cells(i, 1), s.Cells(i, 2))NextEnd Sub

На листе 5

1-й столбец адрес

2-й - название для QueryTable

P.S. Може и есть мелкие ошибки, но нет адресов с таблицами - нет и работающего примера