вставил код в аксес все работает но как понять могу как сформировалась таблица
окрыть HTML c URL
окрыть HTML c URL
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
окрыть HTML c URL