Bạn đang tìm cách tích hợp dịch vụ web với VBA? Tải xuống Bộ công cụ dịch vụ web Microsoft Office XP 2.0 không được hỗ trợ hoặc Bộ công cụ dịch vụ web Microsoft Office 2003 2.01
Sau khi tự mình làm như vậy, tôi đã duyệt danh sách Xmethods này cho một dịch vụ web công cộng và tìm thấy Dịch vụ web bận rộn ngẫu nhiên. Bây giờ mục tiêu của tôi là tạo một Macro sẽ hiển thị một hộp thông báo với một "Bushism" ngẫu nhiên trong đó, sử dụng Bộ công cụ Dịch vụ Web.
Một số lưu ý nếu bạn muốn tự mình thử…
1. Nếu bạn chưa làm như vậy, hãy cài đặt Bộ công cụ dịch vụ web.
2. Mở Excel.
3. Mở Visual Basic Editor (Alt + F11).
4. Nhấp vào tùy chọn mới trên menu Công cụ của bạn - “Tham chiếu Dịch vụ Web…”
5. Trong cái mới mở của bạn Biểu mẫu bộ công cụ nhấp vào nút radio “URL dịch vụ web” và nhập địa chỉ này: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Nhấp vào nút tìm kiếm.
7. Hy vọng rằng nó đã tìm thấy dịch vụ web Bushism và liệt kê nó trong hộp “Kết quả tìm kiếm”. Đặt dấu kiểm để chọn dịch vụ web và nhấp vào “Nút Thêm”.
8. Chèn một mô-đun. Trình chỉnh sửa của bạn bây giờ sẽ trông giống như sau:
9. Thêm mã này vào mô-đun của bạn, xử lý lỗi nếu muốn, chạy hoặc gọi Macro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismĐặt BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Chủ nghĩa bận rộn"Kết thúc Sub |
