xml file genereren via excel

[HenkS]

hallo,

op de microsoft site kwam ik een document tegen (uitgeprint en nu de URL verdomme kwijt) maar volgens dit document kun je door een Excel file te maken, en dan een macro erop los te laten een text string of a well-formed xml-document genereren.

nou ik dit dus proberen, wat dingetjes ingevuld in excel

dan moet ik volgens het document het volgende in de marco zetten:

Sub xmltest()
XMLBody = ActiveSheet.Range("A1:D4").Value(xlRangeValueXMLSpreadsheet)

Dim XMLHTTP As New Msxm12.XMLHTTP
XMLHTTP.Open "POST", "http://marks/submit.asp", False
XMLHTTP.send (XMLBody)
XMLResponse = XMLHTTP.ResponseText
End Sub

(marks is hier de naam van de IIS server)

nou dan probeer ik dus op 'play' te drukken om de macro uit te voeren en dan krijg ik op de regel waar (dim staat, dus declaratie regel) de volgende fout:

User-defined type not defined

dit snap ik dus niet??? wat doe ik hier fout?

[Ramon]

Sub xmltest()
XMLBody = ActiveSheet.Range("A1:D4").Value(xlRangeValueXMLSpreadsheet)

Dim XMLHTTP As New Msxml2.XMLHTTP
XMLHTTP.Open "POST", "http://marks/submit.asp", False
XMLHTTP.send (XMLBody)
XMLResponse = XMLHTTP.ResponseText
End Sub

----
ik denk dat die 1 voor de 2 dus een L moet zijn.

[HenkS]

nee had ik al geprobeerd, dacht ik ook

[The Lord]

Ik dacht dat het bij de nieuwe XML parser 'ServerXMLHTTP' was geworden i.p.v. 'XMLHTTP'. Probeer het eens even.

En, misschien stomme vraag, maar heb je de nieuwste XML parsing engine geïnstalleerd?

[HenkS]

Op woensdag 28 november 2001 12:44 schreef The Lord het volgende:
Ik dacht dat het bij de nieuwe XML parser 'ServerXMLHTTP' was geworden i.p.v. 'XMLHTTP'. Probeer het eens even.

En, misschien stomme vraag, maar heb je de nieuwste XML parsing engine geïnstalleerd?

ehmm nee, dus geen stomme vraag, misschien ben ik gewoon stom om het niet te doen ....

maar hoe doe ik dat, of waar vind ik die...?

[The Lord]

http://www.microsoft.com/xml

Maar werkt dat 'ServerXMLHTTP'? Of krijg je dan ook een foutje?

[HenkS]

hallo
ik heb nu parser4.0 geinstalleerd en het volgende proberen te gebruiken:

XMLBody = ActiveSheet.Range("A1:D4").Value(xlRangeValueXMLSpreadsheet)

Dim XMLHTTP As New msxml2.ServerXMLHTTP
XMLHTTP.Open "POST", "http://marks/submit.asp", False
XMLHTTP.send (XMLBody)
XMLResponse = XMLHTTP.ResponseText

maar ik krijg nogsteeds dezelfde fout

ik vind nergens in de handleiding wat ik daar neer moet zetten

edit:

het werkt, ik moest ook nog ergens aanvinken dat ie die dll moest gebruiken

MAAR nu krijg ik de regel later de volgende fout:

'Class does not support automation or does not support expected interface'

wat doe ik hier dan fout?

[The Lord]

Ik ben nu toevallig ook weer wat met de XML parser bezig. En met versie 4 moet je waarschijnlijk de volgende code gebruiken :

code:

Dim XMLHTTP As New MSXML2.ServerXMLHTTP.4.0

En ik vroeg me ineens af wat je aan de IIS kant gebruikt om de HTTP-POST 'op te vangen'. Heb je daar een asp-script dat de file op de HD plaatst?