Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2014, 13:59   #1
Sl0w
Новичок
Джуниор
 
Регистрация: 12.08.2014
Сообщений: 2
По умолчанию Создание "плавающих" интернет ссылок

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

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connect ion:= _
"URL;http://www.cbr.ru/credit/101.asp?regnum=1326&when=305619", _
Destination:=Range("$A$1"))
.Name = "101_0714"
выделенные значения должны ссылаться на ячейки

Спасибо за проявленное внимание и благодарность за совет.
Sl0w вне форума Ответить с цитированием
Старый 12.08.2014, 19:40   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
    ' формируем сначала ссылку (до добавления листа)
    URL$ = "URL;http://www.cbr.ru/credit/" & Range("e5") & ".asp?regnum=" & Range("d2") & "&when=" & Range("d3")

    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:=URL$, Destination:=Range("$A$1"))
        .Name = "101_0714"
        ' ....
    End With
EducatedFool вне форума Ответить с цитированием
Старый 14.08.2014, 10:40   #3
Sl0w
Новичок
Джуниор
 
Регистрация: 12.08.2014
Сообщений: 2
По умолчанию

Благодарю за помощь, все получилось
Sl0w вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Постоянно слетает галочка "автоматически" в "Параметры Excel", "Формулы", "Вычисления в книге" Alexsandrr Microsoft Office Excel 4 19.10.2013 14:22
"Копирование частей pngimage в pngimage" или "Создание своей всеразмерной и прозрачной кнопки" alextrof94 Общие вопросы Delphi 1 15.04.2013 22:19
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") funnyy Помощь студентам 3 17.10.2012 17:40
МасОС не работает ,хоть и Видит,Интернет и "сломалась" "Сеть" =/ ApxuKILLER Операционные системы общие вопросы 2 05.05.2011 08:22
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04