Заиста уживам у стварима ВинХТТП и веб услуга (посебно РЕСТ). Иако морам доста да истражим сваку ситницу коју научим, а тек почињем, вреди тога.
Синоћ сам смислио како заобићи променљиву од ВБА до ПХП и назад. Другим речима, научио сам како да пренесем ВБА променљиву у ПХП функцију (која се налази у датотеци на серверу АутоматеЕкцел), манипулишем променљивом, а затим вратим нови резултат назад у ВБА.
Напомена: Променљива се шаље као низ.
На пример, до оквира за поруку на овој слици стигли су:
1. Слање променљиве која држи број 15 преко ХТТП -а у ПХП датотеку на АутоматеЕкцел -у
2. ПХП функција узима променљиву, помножи је са 500, а затим враћа одговор, у овом случају 7500
3. ВБА чита одговор и враћа одговор у поруку
Ево како изгледа ПХП код. Отворите бележницу, копирајте и залепите ове податке, сачувајте датотеку са наставком пхп и отпремите је на свој сервер:
| 12345678910111213141516 |
Нисам вратио одговор у КСМЛ -у како би пример био једноставан. Ево ВБА кода за слање и примање података, промените стринг везе тако да показује на пхп датотеку коју сте управо креирали:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Додајте референцу на Мицрософт ВинХТТП услугеКонст. ХТТПРЕКУЕСТ_СЕТЦРЕДЕНТИАЛС_ФОР_СЕРВЕР = 0Привате Суб ГетИтемс ()Затамните МиЦон као нови ВинХттпРекуестДим сендтхис Ас ДоублеДим миансвер Ас Стринг'променљива за слањепошаљи ово = 15'Низ везе за слањеМиЦон.Отворите „ГЕТ“, _"хттпс://ввв.аутоматеекцел.цом/екцел/пл/сервер500.пхп" & _"? ПассТхис =" & пошаљи ово'ПошаљитеМиЦон.Сенд'вратитимиансвер = МиЦон.РеспонсеТектМсгБок миансверЕнд Суб |
Напомена: Додајте референцу на Мицрософт ВинХТТП Сервицес
То је феноменално!
