دانلود داده های XML تمام نمادها از وب سرویس سازمان بورس توسط VBA و درج آن به شکل جدول در شیت اکسل
شش سال پیش منتشر شده
تعداد بازدید: 4265
کد پروژه: 78355
شرح پروژه
با سلام
من میخوام داده های خروجی وب سرویس سازمان بورس را دانلود کنم و در قالب جدول در شیت اکسل مشخص در اختیار داشته باشم. با استفاده از این کد به نتیجه نرسیدم:
Dim Url As String
Url = "http://service.tsetmc.com/WebService/TsePublicV2.asmx"
Dim Url2 As String
Url2 = "http://service.tsetmc.com/WebService/TsePublicV2.asmx?WSDL"
Dim fldr As String
fldr = "C:\Users\
Dim XmlHttp As New MSXML2.XmlHttp
XmlHttp.Open "GET", Url2, False
XmlHttp.setRequestHeader "UserName", "..."
XmlHttp.setRequestHeader "Password", "..."
XmlHttp.setRequestHeader "Flow", "0"
XmlHttp.send
Dim fileStream As ADODB.Stream
Set fileStream = New ADODB.Stream
With fileStream
.Open
.Type = adTypeBinary
.Write XmlHttp.responseBody
.Position = 0
.SaveToFile fldr & "12.xml"
.Close
End With
خروجی این کد صرفا تشریح ساختار تمام ماژولهای وب سرویس ها است. من چندان کار با وب بلد نیستم و فقط داخل خود اکسل کد زدم
توضیحات وب سرویس مورد نظر که میخوام استفاده کنم هم در این لینک توسط سازمان بورس ارائه شده است:
http://cdn.tsetmc.com/Site.aspx?ParTree=111411111P&LnkIdn=97
مهارت ها و تخصص های مورد نیاز
مهلت برای انجام
2روز
وضعیت مناقصه
بسته
درباره کارفرما
عضویت شش سال پیش
