Мені дуже подобається вміст WinHTTP та веб -служб (особливо REST). Незважаючи на те, що мені потрібно докладно дослідити кожну дрібницю, яку я дізнаюся, і я тільки починаю, це того варте.
Вчора ввечері я придумав, як повернути змінну від VBA до PHP і назад. Іншими словами, я навчився передавати змінну VBA функції PHP (яка знаходиться у файлі на сервері AutomateExcel), маніпулювати зміною, а потім повернути новий результат назад у VBA.
Примітка: Змінна надсилається як рядок.
Наприклад, до вікна повідомлення на цьому зображенні надійшов:
1. Надсилання змінної, що містить номер 15, по протоколу HTTP у файл PHP на AutomateExcel
2. Функція PHP бере змінну, помножує її на 500, а потім повертає відповідь, в даному випадку 7500
3. VBA читає відповідь і повертає відповідь у скриньці повідомлень
Ось як виглядає код PHP. Відкрийте блокнот, скопіюйте та вставте цю інформацію, збережіть файл із розширенням php і завантажте на свій сервер:
| 12345678910111213141516 |
Я не повернув відповідь у XML, щоб приклад був простим. Ось код VBA для надсилання та отримання даних, змінення рядка з'єднання, щоб вказати на щойно створений файл php:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Додайте посилання на служби Microsoft WinHTTPКонстатувати HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Приватні субтитри GetItems ()Затемнити MyCon як новий WinHttpRequestПослати це як подвійнеЗатемнити мою відповідь як рядок'змінна для надсиланнянадіслати це = 15'Рядок з'єднання для надсиланняMyCon.Відкрийте "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & надіслати це'відправитиMyCon.Send'поверніть йогоmyanswer = MyCon.ResponseTextMsgBox моя відповідьEnd Sub |
Примітка: Додайте посилання на служби Microsoft WinHTTP
Це круто!
