Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
окрыть HTML c URL
 
#1
03.07.2010 16:02:52
сем доброго времени суток!  
Подскажите как можно решить следующюю проблему преведенный ниже код из Access открывает эксель дальше открываем экселем html страницу которая находится на сервере эксель открывает но в html коде. А вот если страницу предварительно скачать и указать локальный путь  к фаилу "С/.../..." то окрывает нормаль четабельно как решить чтобы с url открывал читабельно  
 
Set xl = CreateObject("Excel.Application")  
xl.Visible = True  
xl.Workbooks.Open "http://goszakup.gov.kz/app/index.php/ru/contacts/show/60000"
 
 
 
#2
03.07.2010 16:26:06
У меня нормально с URL открывает (XL2000).  
С другой стороны, тебе наверняка не все данные со страницы нужны.  
Попробуй Данные - Внешние данные - Web запрос, там можно выбрать, какую часть данных импортировать. Запиши это в макрос, потом измени по необходимости.
 
 
 
#3
03.07.2010 16:27:00
В виде кода это будет выглядеть так:  
 
Sub test()  
   addr = "URL;http://goszakup.gov.kz/app/index.php/ru/contacts/show/60000"  
   Set xl = CreateObject("Excel.Application"): xl.Visible = True  
   With xl.Workbooks.Add(-4167).Worksheets(1)  
       With .QueryTables.Add(addr, .[a1])
           .AdjustColumnWidth = True: .RefreshPeriod = 0  
           .WebSelectionType = 3: .WebFormatting = 3: .WebTables = "4"  
           .Refresh BackgroundQuery:=False  
       End With  
   End With  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
03.07.2010 16:42:03
{quote}{login=Казанский}{date=03.07.2010 04:26}{thema=npo}{post}У меня нормально с URL открывает (XL2000).  
С другой стороны, тебе наверняка не все данные со страницы нужны.  
Попробуй Данные - Внешние данные - Web запрос, там можно выбрать, какую часть данных импортировать. Запиши это в макрос, потом измени по необходимости.{/post}{/quote}  
у меня XL 2007  
xl.Workbooks.Open может здесь еще какойнибудь параметр надо передать или настроики экселя изменить.
 
 
 
#5
03.07.2010 16:45:41
{quote}{login=EducatedFool}{date=03.07.2010 04:27}{thema=}{post}В виде кода это будет выглядеть так:  
 
Sub test()  
   addr = "URL;http://goszakup.gov.kz/app/index.php/ru/contacts/show/60000"  
   Set xl = CreateObject("Excel.Application"): xl.Visible = True  
   With xl.Workbooks.Add(-4167).Worksheets(1)  
       With .QueryTables.Add(addr, .[a1])
           .AdjustColumnWidth = True: .RefreshPeriod = 0  
           .WebSelectionType = 3: .WebFormatting = 3: .WebTables = "4"  
           .Refresh BackgroundQuery:=False  
       End With  
   End With  
End Sub{/post}{/quote}  
 
можно немного обяснь код просто в экселе не силен как  именно чем в этом коде откоется нужная страница
 
 
 
#6
03.07.2010 17:06:51
вставил код в аксес все работает но как понять могу как сформировалась таблица
 
 
 
Страницы: 1
Читают тему
Наверх