Не получается через vba сохранить html код после обработке на сервере.
Подскажите.

Shocker.Pro,

макрос записывает в "C:\Рабочий стол\расчеты\test.txt" html код но не весь.
незнаю почему.

osh62,

Через vba я забполняю web-формы на сайте.

Public Function EnterTopecomRu(strFrom As String, strCityes As String, Volume As Currency, Ves As Currency)
Dim a As String
Dim b As String
Dim start As Long


Dim v As Variant
Dim i As Integer
Dim ie As Object
Dim varReturn As Variant
Dim From As String, Cityes As String
From = CurrentDb.OpenRecordset("select cod from ref_filials where City = """ & strFrom & """;").Fields("Cod").Value
Cityes = CurrentDb.OpenRecordset("select cod from ref_filials where City = """ & strCityes & """;").Fields("Cod").Value

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

ie.Navigate ("http://www.pecom.ru/ru/calculator/?type=4")

varReturn = SysCmd(acSysCmdInitMeter, "Entering to pecom.Ru ...", 100)
While CBool(ie.Busy)
i = i + 1
varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / 30000 * 100))
If i > 29999 Then
varReturn = SysCmd(acSysCmdClearStatus)
Beep
MsgBox "Something is wrong. pecom.Ru is not accessible", vbCritical, "pecom.Ru"
ie.Quit
Set ie = Nothing
Exit Function
End If
DoEvents
Wend
varReturn = SysCmd(acSysCmdClearStatus)

ie.Document.Forms(0).elements("from").Value = From
ie.Document.Forms(0).elements("cities").Value = Cityes
ie.Document.Forms(0).elements("objem[]").Value = CStr(Volume)
ie.Document.Forms(0).elements("ves[]").Value = CStr(Ves)


For Each v In ie.Document.Forms(0).elements("uchet") 'учет габарита 0/1
If v.Value = "1" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("gpack") 'жесткая упаковка 0/1
If v.Value = "1" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("plomb") 'пломбировка 0/1
If v.Value = "1" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("inmsk2") 'сети 0/4
If v.Value = "4" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("srochno") 'срочный забор 0/1
If v.Value = "1" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("tent") 'растентовка забор 0/1
If v.Value = "1" Then v.Checked = True
Next
For Each v In ie.Document.Forms(0).elements("tent_d") 'растентовка доставка 0/1
If v.Value = "1" Then v.Checked = True
Next


Потом отсылаю эти данные на сервер.

ie.Document.Forms(0).submit



Сервер присылает расчет с итоговой ценой.

Цена записанна в html коде который получился после отправки на сервер.

Мне необходимо эту цену как-нить выдернуть.

Я сохраняю html код в текстовый файл test.txt и начинаю его парсить.


s = ie.Document.body.innerHTML

Open "C:\Рабочий стол\калькуль\test.txt" For Output As #1

Print #1, s

Close #1

start = InStr(1, a, "table width=""100%"" class=""tdbold""><")

start2 = InStr(start, a, "align=""center"">")

start3 = InStr(start2, a, "</td><td")

start4 = Len("align=""center"">")

b = Mid(a, start2 + start4, start3)

MsgBox b
End Function



Но почему-то в файл test.txt сохраняется не весь код,там нет итоговой цены.


Как мне правельно сохранить весь html код который появляеться после обработке на сервере?Чтобы оттуда выдернуть итоговую цену.

Shocker.Pro,

34 кб

ё,

тегами пользуйся!!

не понял

Это как нужно сделать?

ё,

когда выполнение дойдёт до неё - пойди покури
по возвращении - нажми Ф5,


А есть какой-нить другой способ?
Т.к. моя задача пересчитывать около 10000 перевозок каждую неделю на этом сайте и получить цены за эти перевозки.

Konst_One,

а вы не пробовали обратиться к админу того сайта, может у них есть сервис или API для доступа к инфе напрямую.


К сожалению никак не получится.