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

Вопрос: Помогите с написанием макроса в экселе, хелп. Добавлено: 11.05.07 19:31

Автор вопроса: xbusss | ICQ: 338160622

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

Есть вот такой макрос:
Sub mozg1()

    Range("A1").Select
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;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. нахожу похожие примеры но что-то никак. Заранее спасибо всем откликнувшимся.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Meh&vb ICQ: 195578509 Вопросов: 8 Ответов: 25	Профиль \| \| #1	Добавлено: 21.05.07 14:58
	s="1189711" ' содержимое ячейки получаемое из организации цикла по диапазону ячеек s1="URL;http://www.aaa/aaa.shtml?" & s With ActiveSheet.QueryTables.Add(Connection:=S1, Destination:=Range("A1") ... .Name = "aaa.shtml?" & s ... ... по-моему должно работать .. Ответить

Страница: 1 |