Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Получение данных из WEB
 
#1
19.10.2010 16:24:42
Всем общий здрасьте :)  
Попробовал получить данные из ВЕБ (Днные - Получить внешние данные - из Веба).  
Жмёшь кнопку - появляется окошко - всё нормуль.  
Но не всегда. При длинном адресе страницы получаю сообщение:  
"Введена слишком длинная текстовая строка.Уменьшите кол-во знаков или отмените ввод".  
Уменьшить кол-во знаков в адресе страницы нельзя, отменить ввод, ессно, тоже. Что делать?  
Спасибо.
 
 
 
#2
19.10.2010 16:27:19
Попробуй это действо записать в макрос, а там потом подставить нужную строку.  
С подставкой есть варианты... от Билла даже :)
 
 
 
#3
19.10.2010 16:30:51
Может и тут сработает?  
 
http://support.microsoft.com/kb/213841
 
 
 
#4
19.10.2010 16:53:36
{quote}{login=Hugo}{date=19.10.2010 04:27}{thema=}{post}Попробуй это действо записать в макрос, а там потом подставить нужную строку.  
С подставкой есть варианты... от Билла даже :){/post}{/quote}  
Получается такой макрос:)  
Sub Макрос1()  
' Макрос1 Макрос  
End Sub
 
 
 
#5
19.10.2010 16:56:46
:)  
 
Sub Macro1()  
'  
' Macro1 Macro  
' Macro recorded 19.10.2010 by  
'  
 
'  
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.planetaexcel.ru/forum.php?thread_id=20283", Destination:= _  
       Range("A1"))  
       .Name = "forum.php?thread_id=20283"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlAllTables  
       .WebFormatting = xlWebFormattingNone  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = False  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub
 
 
 
#6
19.10.2010 17:14:29
Ух ты!  
Спасибо, работает на ура.  
 
А как сделать продолжение?  
См. файл.
 
 
 
#7
19.10.2010 17:20:51
Не понял, продолжение чего? Вроде всё, что нашлось на странице взял.  
А вообще поставить запросы в цикл с подменой строки и выгрузкой в конец выгруженного.
 
 
 
#8
19.10.2010 17:28:53
{quote}{login=Hugo}{date=19.10.2010 05:20}{thema=}{post}Не понял, продолжение чего?{/post}{/quote}Глянь на лист "Итог" ;)
 
 
 
#9
20.10.2010 10:11:24
Уточню задачу.  
При получении данных они отображаются как текст. Необходимо же иметь гиперссылки, как в оригинале. А потом упорядочить их так как нарисовано в примере на листе "Итог".
 
 
 
#10
20.10.2010 16:03:52
Господа макроведы, есть решение?  
Или не ждать от Вас помощи?
 
 
 
Страницы: 1
Читают тему
Наверх