Общее решение состоит в том, что есть функция в VBA - Shell() - запускает любую программу в винде.    
Выбираете менеджер закачек с поддержкой командной строки и формируете эту строку в VBA. Грубо говоря так:  
comString="путь_к_донлоадеру\имя_донлоадера.ехе" & "набор ключей"  
ans=Shell(comString)

{quote}{login=Юрий М  
Странно, у меня нашлось: http://otvety.google.ru/otvety/thread?tid=13e628eada06ef65&table=%2Fotvety%2Flabel%3Flid%3D1b549d575b1ad0a8 Строка запроса - название темы.</P>{/post}{/quote}  
 
И что вы думаете, предложенный по ссылке метод на пробе работал хорошо, но только я его зарядил на скачку 4-х файлов мой антивирус начал ругатся (типа обноружен Троян-доунлодер) и утащил файл с кодом на карантин )))

{quote}{login=}{date=14.01.2010 09:17}{thema=Re: Re: Как скачатьть файл из интернета  с помощью VBA?}{post}  
 
И что вы думаете, предложенный по ссылке метод на пробе работал хорошо, но только я его зарядил на скачку 4-х файлов мой антивирус начал ругатся (типа обноружен Троян-доунлодер) и утащил файл с кодом на карантин ))){/post}{/quote}  
 
Ну так а зачем было использовать компоненты CreateObject("InternetExplorer.Application") и CreateObject("MSXML2.XMLHTTP") ?????  
 
Чем не устроило моё решение, где для скачивания файла используется WinAPI?  
 
И никакие антивирусы не ругаются, вроде бы...

Я обычно качаю страницы из интернета таким кодом:  
 
 
Function GetHTTPResponse(ByVal sURL As String) As String  
   On Error Resume Next  
   Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")  
   With oXMLHTTP  
       .Open "GET", sURL, False  
       '    раскомментируйте следующие строки и подставьте верные IP, логин и пароль  
       ' если вы сидите за proxy  
       '    .setProxy 2, "192.168.100.1:3128"  
       '    .setProxyCredentials "user", "password"  
       .send  
       sHTMLBody = .responseBody  
   End With  
   For i = 0 To UBound(sHTMLBody)  
       GetHTTPResponse = GetHTTPResponse & ChrW(AscW(Chr(AscB(MidB(sHTMLBody, i + 1, 1)))))  
   Next  
   pi.Hide  
   Set oXMLHTTP = Nothing  
End Function  
 
Private Sub ПримерИспользования()  
   txt = GetHTTPResponse("http://ExcelVBA.ru")  
   MsgBox txt  
   Debug.Print SaveTXTfile("C:\Documents and Settings\Игорь\Рабочий стол\PageText_test.txt", txt)  
End Sub  
 
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean  
   On Error Resume Next: Err.Clear  
   Set fso = CreateObject("scripting.filesystemobject")  
   Set ts = fso.CreateTextFile(filename, True)  
   ts.Write txt: ts.Close  
   SaveTXTfile = Err = 0  
   Set ts = Nothing: Set fso = Nothing  
End Function  
 
 
Но результат - не ТЕКСТ, а ИСХОДНЫЙ КОД страницы.

Если надо получить ТЕКСТ страницы, то можно использовать примерно такой код:  
 
Sub test()  
   Set IE = CreateObject("InternetExplorer.Application"): DoEvents  
 
   IE.Navigate "http://ExcelVBA.ru"  
   While IE.readyState <> 4: DoEvents: Wend ' ждем, пока загрузится страница  
   Set ieDoc = IE.Document  
 
   For i = 0 To IE.Document.all.Length - 1  
       MsgBox IE.Document.all.item(i).innerText, vbInformation, "Элемент № " & i  
   Next  
     
   IE.Quit  
   Set IE = Nothing  
End Sub  
 
 
Я в объектной модели DOM пока плохо разбираюсь, так что, возможно, есть более простой способ.  
Но меня и такой вариант устраивает.  
Смотрите, что скачивается, выбираете индексы нужных Вам элементов,  
и модернизируете код, чтобы обрабатывался текст только из интересующих Вас частей веб-страницы.  
 
 
Вот пример работы со страницей, содержащей фреймы:  
(заполняется поле поиска, нажимается кнопка ОТПРАВИТЬ, обрабатывается результат из сформированной скриптом веб-страницы)  
 
 
Function GetSubsribersCollection(Optional ByVal SearchString As String = "*") As Collection  
   On Error Resume Next  
   'Set GetSubsribersCollection = New Collection  
   If Len(Trim(SearchString)) = 0 Then Exit Function    ' пустая строка поиска недопустима  
 
   ' pi.Show "Биллинг - запрос данных "  
   '  "Подключение к серверу..."  
   Set IE = CreateObject("InternetExplorer.Application"): DoEvents  
   NavStr = "https://..../template.cgi?tpl=base/index.tpl"  
   'IE.Visible = -1  
 
   IE.Navigate NavStr  
     
   While IE.readyState <> 4: DoEvents: Wend  
   Set ieDoc = IE.Document  
   'pi.StartNewAction 20, 70, "Обработка запроса..."  
 
   With ieDoc.frames.item(0).Document  
       .all("search_limit").selectedIndex = 2  
       .all("search").Value = SearchString  
       .forms("frm_param").submit  
   End With  
     
   While IE.Busy  
       DoEvents  
   Wend  
 
   Set t = ieDoc.frames.item(1).Document.activeElement.childNodes(1)  
 
   For i = 1 To t.Rows.Length - 2  
       'If i Mod PI_step = 0 Then pi.CurAction 0, 0, , "Обрабатывается строка " & i  
       With t.Rows.item(i).Cells  
           ' код  
       End With  
   Next i  
     
   IE.Quit  
   Set IE = Nothing  
   pi.Hide  
End Function

Страничка http://www.alpari.ru/ru/pamm/rating/ и  мне нужен сам рейтинг.  
Я почитал выши сылки и сдаётся мне что самым надёжным вариантом будет если юзеры будут вручную открывать нужную страницу и копировать её.

К тому же, по каждому ПАММ-счету можно макросом скачать готовый файл Excel.  
 
Пример ссылки для скачивания файла:  
http://www.alpari.ru/ru/pamm/info/login/58529/action/excel  
 
Короче, алгоритм упрощается:  
1) грузим в цикле 10 страниц (см. пост выше)  
2) в каждой из них находим по 50 ссылок на ПАММ-счета  
3) из адресов ссылок (нас интересуют только последние 6 символов из адреса ссылки) формируем ссылки на файлы excel  
5) Загружаем в специальную папку все 500 файлов  
6) Анализируем их.

{post}{quote}{login=EducatedFool}  
 
По поводу Вашего сайта:  
 
Достаточно в цикле загрузить 10 страниц с адресами типа  
http://www.alpari.ru/ru/pamm/rating/#PammList?page=1&sort=rating&sorttype=ASC  
 
(где вместо page=1 подставлять page=2, page=3 и т.д.)  
{/quote}  
Я так и делал,но список рейтинга не сохраняется как только не пробовал.И скачивал и веб-запросом,сохраняется вся страница но без списка.Только копированием из експлоера всей страницы в ручную и последующей вставкой на страницу  
 
{quote}  
Если Вам надо получить в Excel таблицу из 6 столбцов такого вида:  
1 Invincible_trader:58529    20.03.2009 2500 EUR 1183.77% 0.00% 45.69%  
{/quote}  
 
С этим то как раз никаких проблем. Эту часть я уже сделал и она работает.  
И файлы я уже скачиваю и обрабатываю.  
 
{quote} самым надёжным вариантом будет если юзеры будут вручную открывать нужную страницу и копировать её.  
 
Поверьте, это не самый надежный вариант.  
К тому же, разные браузеры по-разному копируют таблицы в буфер обмена - приходится анализировать, какой из браузеров был использован, и запускать соответствующий макрос обработки..{/quote}  
Ёлки-палки...Я надеялся что таких проблем не будет. Остаётся только обязать пользователя пользоваться Експлорером и автоматизировать только открытие нужных страниц. Всё равно Експорер стоит у всех по умолчанию хоть и пользуются все кто во что горазд.

{quote}{login=EducatedFool}{date=18.01.2010 04:55}{thema=}{post}  
После этого Вам станет понятно, как с ней работать.  
{/post}{/quote}  
 
Упс...вопросов появилось столько что я не знаю с чего и начать ))) Точнее один : что всё это значит ? )))  
Вообщем пошёл я пытаться учить эту мат.часть.  
Однако спасибо.

Подскажите, пожалуйста, как исходный код страницы перенести полностью построчно на лист excel?