Excel и интернет

[OKS]

Форумчане, ответьте ,пожалуйста, на вопрос, возможно ли чтобы по ссылке в таблицу Excel автоматически вводились данные ( допустим стоимость товара) из инета,и потом можно было бы посчитать например, выручку..... если да, то как?

[SAS888]

"Общий" вопрос - "общий" ответ: нужно использовать "Импорт внешних данных" - "Создать Web запрос".

[OKS]

Да, наверное, неправильно задала вопрос.... У меня есть перечень печатной продукциии, мне нужно к каждому наименованию "выудить" с сайта его цену конкретно, а не весь прйс-лист и далее к этой цене прибавить наценку.
Как мне это "изобразить"?...
=ссылка на страницу в инете+...???

[SAS888]

Прикрепите файл (фрагмент файла), укажите, куда что нужно вставлять и дайте ссылку на сайт, с которого нужно получать эту информацию. Чем подробнее опишите задачу, тем более точный и правильный будет ответ.

[OKS]

Большое спасибо!

[OKS]

Пытаюсь...но не выходт...
А можете подсказать, как будет выглядеть формула, у меня есть вот например, такая табличка ( вложила файл) , надо вставить в каждую ячейку цену с данного сайта http://www.50kopeek.ru/price.php , например в ячейку С17 и сминусовать от этого числа 10 %....

[SAS888]

Посмотрите вложение. Цены формируются на 10% меньше, чем цены на указанном Вами сайте. Предполагается, что соединение с интернетом установлено (проверка наличия соединения не осуществляется).

[TIVA_PW]

Доброе время суток)

Сообщение от SAS888

Посмотрите вложение. Цены формируются на 10% меньше, чем цены на указанном Вами сайте. Предполагается, что соединение с интернетом установлено (проверка наличия соединения не осуществляется).

вот мне бы кокраз проверку соединения с нетом) - без всяких других функций)
если можно код целиком) - в гугле на запрос нашол на делфи)) - надо на ВБА-ексель)

и, если не сложно, посоветуйте какой-то сайтик с исходниками примеров на ВБ)

большое спс)

[EducatedFool]

в гугле на запрос нашол на делфи)) - надо на ВБА-ексель)

плохо искали...
http://excelvba.ru/code/Ping

А эта функция (совместно с функцией Ping) поможет проверить, доступно ли соединение с интернетом на компьютере:

Function InternetConnectionAvailable() As Boolean
    ' возвращает TRUE, если доступно соединение с Интернетом (пингуются несколько хостов)
   InternetConnectionAvailable = False
    If Ping("yandex.ru") Then InternetConnectionAvailable = True: Exit Function
    If Ping("ya.ru") Then InternetConnectionAvailable = True: Exit Function
    If Ping("mail.ru") Then InternetConnectionAvailable = True: Exit Function
    If Ping("rambler.ru") Then InternetConnectionAvailable = True: Exit Function
End Function

Сделать это можно так:

Sub ПримерИспользования()
    If Not InternetConnectionAvailable Then ' проверяем доступ к основным сайтам
       MsgBox "Сначала подключите интернет (или отключите брандмауэр), " & _
               "а потом запускайте макрос", vbCritical, "Недоступен интернет"
        Exit Sub
    End If
    ' далее идёт код, взаимодействующий с интернетом (почта, FTP, HTTP и т.д.)
End Sub