Добрый день, помогите с макросом.  
Необходимо импортировать таблицу из интернета и записать ее в переменную.  
 
Сейчас использую вот этот код:  
   With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.yandex.ru", _  
       Destination:=Range("$A$1"))  
       .Name = "www.yandex.ru"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = False  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlSpecifiedTables  
       .WebFormatting = xlWebFormattingAll  
       .WebTables = """body"""  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = True  
       .WebDisableRedirections = False  
       .Refresh BackgroundQuery:=False  
   End With  
 
Но этот код записывает данные на рабочий лист, а мне необходимо, чтобы таблица записывалась в переменную, к элементам которой я бы мог потом обращаться в макросе.