xbusss Опубликовано 11 мая, 2007 Жалоба Поделиться Опубликовано 11 мая, 2007 Помогите с написанием макроса в экселе, хелп. Есть вот такой макрос: 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 Опубликовано 14 мая, 2007 Жалоба Поделиться Опубликовано 14 мая, 2007 Помогите с написанием макроса в экселе, хелп. Вот есть отличная книжка, говорят многим помогает. Юзай. Название: Использование макросов в Excel. 2-е изд. Автор: С. Роман Издательство: Питер, 2004 г., 507 стр. Формат: DJVU Размер: 8.03 Мб Несмотря на мощные функциональные возможности, обеспечиваемые пользовательским интерфейсом Excel, существует ряд задач, выполнение которых возможно только программным путем. Книга "Использование макросов в Excel" представляет собой введение в программирование на Excel VBA, содержащее примеры решения различных практических задач, возникающих при работе в Excel. Материал книги рассчитан на пользователей Excel, а также программистов, которые не знакомы с объектной моделью Excel. Наряду с разделами, посвященными разработке макросов для Excel 2002, здесь излагается вводный курс по написанию макросов и программ в среде Excel. Скачать Использование макросов в Excel. 2-е изд. зеркало. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
yuriks Опубликовано 14 мая, 2007 Жалоба Поделиться Опубликовано 14 мая, 2007 Делаеш процедуру с параметрами 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. Може и есть мелкие ошибки, но нет адресов с таблицами - нет и работающего примера Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.