{quote}{login=egonomist}{date=16.11.2011 08:45}{thema=}{post}для выгрузки данных    
 
Очень интересно посмотреть на ваш файл, если он очень большой - залейте на файлообменик и дайте ссылку.{/post}{/quote}  
 
метод такой  
 
Sub GetData()  
'   thanks to Ron McEwan :^)  
 
   Dim QuerySheet As Worksheet  
   Dim DataSheet As Worksheet  
   Dim EndDate As Date  
   Dim StartDate As Date  
   Dim Symbol As String  
   Dim Period As Integer  
   Dim qurl As String  
   Dim nQuery As Name  
     
   Application.ScreenUpdating = False  
   Application.DisplayAlerts = False  
   Application.Calculation = xlCalculationManual  
     
   Set DataSheet = ActiveSheet  
   
       StartDate = DataSheet.Range("C2").Value  
       EndDate = DataSheet.Range("C3").Value  
       Symbol = DataSheet.Range("C1").Value  
       If DataSheet.Range("C4").Value = "H" Then  
       Period = 7  
       ElseIf DataSheet.Range("C4").Value = "D" Then Period = 8  
       Else: Period = 9  
       End If  
       Range("C7").CurrentRegion.ClearContents  
         
         
'construct the URL for the query  
       qurl = "http://export.finam.ru/" & Symbol & "?d=d&m=1&em=16842"  
       qurl = qurl & "&df=" & Day(StartDate) & "&mf=" & Month(StartDate) - 1 & "&yf=" & Year(StartDate) _  
       & "&dt=" & Day(EndDate) - 1 & "&mt=" & Month(EndDate) - 1 & "&yt=" & Year(EndDate) _  
       & "&p=" & Period & "&f=" & Symbol & "&e=.csv&cn=" & Symbol _  
       & "&dtf=1&tmf=1&MSOR=0&sep=1&sep2=1&datf=4&at=1"  
         
       'qurl = "http://chart.yahoo.com/table.csv?s=" & Symbol  
       'qurl = qurl & "&a=" & Month(StartDate) - 1 & "&b=" & Day(StartDate) & _  
           "&c=" & Year(StartDate) & "&d=" & Month(EndDate) - 1 & "&e=" & _  
           Day(EndDate) & "&f=" & Year(EndDate) & "&g=" & Range("E3") & "&q=q&y=0&z=" & _  
           Symbol & "&x=.csv"  
       Range("c5") = qurl  
                     
QueryQuote:  
            With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=DataSheet.Range("C7"))  
               .BackgroundQuery = True  
               .TablesOnlyFromHTML = False  
               .Refresh BackgroundQuery:=False  
               .SaveData = True  
           End With  
             
           Range("C7").CurrentRegion.TextToColumns Destination:=Range("C7"), DataType:=xlDelimited, _  
               TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _  
               Semicolon:=False, Comma:=True, Space:=False, other:=False  
             
           Range(Range("E7"), Range("E7").End(xlDown)).NumberFormat = "mmm d/yy"  
           Range(Range("D7"), Range("G7").End(xlDown)).NumberFormat = "0.00"  
           Range(Range("H7"), Range("H7").End(xlDown)).NumberFormat = "0,000"  
           Range(Range("I7"), Range("I7").End(xlDown)).NumberFormat = "0.00"  
 
 
   With ThisWorkbook  
       For Each nQuery In Names  
           If IsNumeric(Right(nQuery.Name, 1)) Then  
               nQuery.Delete  
           End If  
       Next nQuery  
   End With  
     
'turn calculation back on  
   Application.Calculation = xlCalculationAutomatic  
   Application.DisplayAlerts = True  
   Range("C7:I2000").Select  
   Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Header:=xlGuess, _  
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom  
   Range("B4").Select  
 
End Sub  
 
Ссылка для скачивания файла: http://ifolder.ru/26981392

{quote}{login=egonomist}{date=16.11.2011 08:45}{thema=}{post}для выгрузки данных с финама использую следующий метод  
создаю на листе экселя веб запрос к котировкам, макросом обновляю его через  
{/post}{/quote}  
 
а можно взглянуть как выглядит синтаксис вашего запроса?