вставил код в аксес все работает но как понять могу как сформировалась таблица
окрыть HTML c URL
Пользователь
Сообщений: Регистрация: 01.01.1970
03.07.2010 16:45:41
{quote}{login=EducatedFool}{date=03.07.2010 04:27}{thema=}{post}В виде кода это будет выглядеть так:
Sub test() addr = "URL;" 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}
можно немного обяснь код просто в экселе не силен как именно чем в этом коде откоется нужная страница
окрыть HTML c URL
Пользователь
Сообщений: Регистрация: 01.01.1970
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 может здесь еще какойнибудь параметр надо передать или настроики экселя изменить.
окрыть HTML c URL
Пользователь
Сообщений: Регистрация: 01.01.1970
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"