Запрос в гугл док по определенным ссылкам

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Запрос в гугл док по определенным ссылкам (Макросы/Sub)

TimosMN15

Дата: Суббота, 02.01.2016, 22:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

Есть файл в котором с помощью макроса выполняется запрос в гугл док. Как можно сдалать так, чтобы при появлении сообщения c помощью InputBox можно было внести ссылку и запрос уже выполнялся по ней.
например, в действующем макросе запрос выполняется по ссылке: https://docs.google.com/spreads....#gid=0, после запуска макроса, появляется окно для ввода ссылки, я вставляю ссылку: https://docs.google.com/spreads....t#gid=0 и запрос выполняется уже по ней.
Файл во вложении.

Заранее спасибо

К сообщению приложен файл: __.xltm (18.0 Kb)

Ответить

Udik

Дата: Воскресенье, 03.01.2016, 13:23 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Добавил пару строк и одну изменил
[vba]

Код

Dim strAdress As String
Const prompt As String = "Type http"
Const title As String = "Input http"
Const defAdress As String = "https://docs.google.com/spreadsheets/d/1DzfiByeb_kJkqAaedOYIC1uRM-Sgx2s1Y70yDcPLYtQ/edit?pref=2&pli=1"

strAdress = InputBox(prompt, title, defAdress)
With ActiveSheet.QueryTables.Add(Connection:="URL;" & strAdress, Destination:=Range("$A$1"))

[/vba]

К сообщению приложен файл: 5889350.xltm (20.2 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

TimosMN15

Дата: Воскресенье, 03.01.2016, 16:49 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Огромное спасибо.

Ответить

Запрос в гугл док по определенным ссылкам (Макросы/Sub)

Страница 1 из 1
1