импорт таблицы из IE - Microsoft Office Excel

Kek · 30.09.2011, 19:25

необходимо импортировать данные из IE в excel 2003 и потом чтобы они обновлялись допустим каждые 20 мин.

doober · 30.09.2011, 22:00

Это задача

Kek · 03.10.2011, 08:07

вообще задача состоит в том, что из нескольких таблиц из IE берутся табличные данные и формируются в одну таблицу в excel. мб с помощью макроса это как то можно сделать.

EducatedFool · 03.10.2011, 08:13

Цитата:

в первом вложении нет таблицы.

В первом задании нет другого - более важного в данном случае.
А именно - указания суммы, которую вы готовы заплатить за решение вашей задачи.

К нам на форум обычно обращаются с просьбами (на которые мы с удовольствием реагируем, помогая людям РАЗОБРАТЬСЯ в ИХ решении), а вы тут с распоряжением: ставите задачу, которую НАМ почему-то НЕОБХОДИМО сделать.

Либо вы показываете, что вы сделали самостоятельно, и что конкретно у вас там не получается, - либо готовьтесь платить за решение.

Kek · 03.10.2011, 08:31

Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", vWebFile, False
oXMLHTTP.Send

Do While oXMLHTTP.readyState <> 4
DoEvents
Loop

oResp = oXMLHTTP.responseBody

vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF

Set oXMLHTTP = Nothing
End Function

Sub TestingTheCode()

SaveWebFile "http://yyy.xx", "C:\ log.xls"

End Sub

Kek · 03.10.2011, 09:59

при входе на страницу необходимо ввести пароль

doober · 03.10.2011, 10:09

1.????????????

2.Ваш метод не подходит.
Как вы собираетесь в данном случае производить декодировку из BASE64

EducatedFool · 03.10.2011, 11:26

Цитата:

2.Ваш метод не подходит.
Как вы собираетесь в данном случае производить декодировку из BASE64

А у меня в этом коде какая-то перекодировка есть:
http://excelvba.ru/code/GetHTTPResponse
Это, случайно, не BASE64? (не помню, откуда взял этот код)

doober · 03.10.2011, 12:40

Это не то.
Байты посредством кодирования преобразуются в строку
Вот пример
Content-Transfer-Encoding: base64
R0lGODlhEAAQAKIAAP//M8zMM5mZmQAAAP///wAAAAAAAAAAACH5BAEAAAQALAAAAAAQABAA AAM3
SLrc/nAJEZkAgNYbQq7dMATaw4le2XgB+jkXJmIv 49G4SsRAO9Iqnu9W2+GORYJoyRxUnlBFAgA 7

Kek · 03.10.2011, 13:04

спасибо EducatedFool. но у меня выводиться все, кроме таблицы. С чем это может быть связано?

30.09.2011, 22:00	#2
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Это задача Анализ,обработка данных Недорого

03.10.2011, 10:09	#7
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	1.???????????? 2.Ваш метод не подходит. Как вы собираетесь в данном случае производить декодировку из BASE64 Анализ,обработка данных Недорого Последний раз редактировалось doober; 03.10.2011 в 10:30.

03.10.2011, 12:40	#9
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Это не то. Байты посредством кодирования преобразуются в строку Вот пример Content-Transfer-Encoding: base64 R0lGODlhEAAQAKIAAP//M8zMM5mZmQAAAP///wAAAAAAAAAAACH5BAEAAAQALAAAAAAQABAA AAM3 SLrc/nAJEZkAgNYbQq7dMATaw4le2XgB+jkXJmIv 49G4SsRAO9Iqnu9W2+GORYJoyRxUnlBFAgA 7 Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Импорт таблицы из Access в Excel	Callika	Microsoft Office Excel	6	17.03.2011 22:10
Импорт данных c Бд(конкретной таблицы) Sql в Excel...	David-D	ASP.NET	1	25.02.2011 23:26
Помогите сделать импорт таблицы в html каждые 15минут	jimbots	HTML и CSS	1	30.07.2010 05:01
Вставка/импорт массива значений из текстового файла в столбец таблицы	bungler	Microsoft Office Excel	4	08.01.2009 19:09
импорт таблицы *.dbf в ms access через ADO	ADO	БД в Delphi	6	17.11.2008 15:01

03.10.2011, 08:31	#5
Kek Пользователь Регистрация: 20.06.2011 Сообщений: 54	Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", vWebFile, False oXMLHTTP.Send Do While oXMLHTTP.readyState <> 4 DoEvents Loop oResp = oXMLHTTP.responseBody vFF = FreeFile If Dir(vLocalFile) <> "" Then Kill vLocalFile Open vLocalFile For Binary As #vFF Put #vFF, , oResp Close #vFF Set oXMLHTTP = Nothing End Function Sub TestingTheCode() SaveWebFile "http://yyy.xx", "C:\ log.xls" End Sub

03.10.2011, 09:59	#6
Kek Пользователь Регистрация: 20.06.2011 Сообщений: 54	при входе на страницу необходимо ввести пароль

03.10.2011, 13:04	#10
Kek Пользователь Регистрация: 20.06.2011 Сообщений: 54	спасибо EducatedFool. но у меня выводиться все, кроме таблицы. С чем это может быть связано?