Esmu izveidojis pamata skriptu XML virknes vai faila nosūtīšanai tīmekļa serverim, izmantojot Excel VBA, un vienkāršu PHP skriptu datu saņemšanai. Process izmanto XMLHTTP.
Mērķis ir izveidot vienkāršu augšupielādes skriptu, lai atjauninātu serveri ar XML datiem, kas izveidoti no izklājlapas. Pēc tam piesaistiet vairākas galalietotāju darbgrāmatas centrālajam failam un izveidojiet no tā pārskatus. Pamata uzgriežņi un skrūves:
Piemēram, es izmantoju pamata XML virkni, kas izskatās šādi:
| 1234567891011 | myxml = "<? xml version =" "1.0" "?>" & _"" & _"Vīriešu polo" & _"4.89" & _"liels" & _"" |
Izmantotais PHP vienkārši atgriež datus, kas tika nosūtīti atpakaļ programmai Excel. Tātad, ja saņemat tos pašus XML datus, kurus nosūtījāt ziņojumu lodziņā, esat to izdarījis pareizi. Ja ziņas dati netiek atrasti, tiek teikts “bez kauliņiem”. Testa URL atrašanās vieta ir /pl/xlxml.php
Acīmredzot jūs vēlaties atjaunināt skriptu, lai saglabātu faila saturu savā serverī praktiskai lietošanai. Šeit ir PHP, lai saņemtu XML ziņu datus un tos atgrieztu:
| 1234567891011121314151617 |
Tātad mēs tagad zinām, ko sūtām, un kā to saņemt, nosūtīsim XML datus!
Šis kods tika izveidots programmā Excel 2003 un VB redaktorā izmantojot atsauci uz Tools-> References-> Microsoft XML v5.0. Tas ir labi komentēts, lai jūs varētu redzēt visu notiekošo:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687 | Sub SendXML ()'HTTP mainīgaisDim myHTTP kā MSXML2.XMLHTTP'HTTP objektsIestatīt myHTTP = CreateObject ("msxml2.xmlhttp")"izveidot dom dokumenta mainīgo'saglabā nosūtāmo xmlDim myDom kā MSXML2.DOMDocument"Izveidojiet DomDocument objektuIestatīt myDom = CreateObject ("MSXML2.DOMDocument")'Pirms turpināt, ielieciet visu dokumentumyDom.async = Nepareizi'xml virknes mainīgais'aizstāt ar atrašanās vietu, ja sūtāt no faila vai URLDim myxml kā virknemyxml = "<? xml version =" "1.0" "?>" & _"" & _"Vīriešu polo" & _"4.89" & _"liels" & _""'ielādē xml"mainiet uz. Ielādēt failu vai URLmyDom.loadXML (myxml)'atveriet savienojumumyHTTP. Atveriet "ziņu", _"https://www.automateexcel.com/excel/pl/xlxml.php", Nepareizi'nosūtiet XMLmyHTTP.Send (myDom.XML)'Parādiet atbildiMsgBox myHTTP.ResponseTextBeigu apakš |
Ja esat tik tālu, pievienojāt atsauci un izpildījāt kodu, redzēsit, ka PHP patiešām saņēma un atdeva XML:
Piezīmes. Es esmu tikai dinamiski izveidojis XML vai ielādējis to no XML failiem un vietrāžiem URL, nākamais ir datu nosūtīšana no XML kartes.
Es atkārtoju datus programmā Excel, nevis rakstīju tos serverī, jo vietrādis URL ir publisks. Es vēlējos dot cilvēkiem smilškastīti un nejaušināt failus uz manu serveri.
