基于ESI的MS EXCEL自动更新数据表格实现

头像
SelilaLee
 Galactic Empire Co LTD
 Fraternity.

帖子: 37
注册时间: 30-09-2017 02:04

Re: 基于ESI的MS EXCEL自动更新数据表格实现

帖子 SelilaLee » 11-06-2019 04:18

参考做了个函数
可以实现比如=GET_JITA_BUY(GET_ItemID(“Capital Propulsion Engine”))的调用,直接调用要加引号,如果假设表格A2为Capital Propulsion Engine,那么直接用=GET_JITA_BUY(GET_ItemID(A2)) 就好了。


代码: 全选

Function GET_ItemID(ItemName As String)
Dim strJson As String
Dim xmlHttp As Object
Dim index_last As Long
Dim index_write As Long
Dim temId As Double
Dim lowprice As Double



Url = "https://www.fuzzwork.co.uk/api/typeid.php?typename=" + CStr(ItemName)
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", Url, False
xmlHttp.send
If xmlHttp.ReadyState = 4 Then
strJson = xmlHttp.responseText
End If


GET_ItemID = Mid(strJson, 11, 6)

End Function

头像
Pikachu Detective
 Stardust-Guardian
 Fraternity.

帖子: 6
注册时间: 04-02-2019 23:52

Re: 基于ESI的MS EXCEL自动更新数据表格实现

帖子 Pikachu Detective » 12-06-2019 22:05

Feeling Surper 写了:
09-06-2019 02:04
大佬为何不写一个typeid的查询function
请直接使用商人助手生成中英文对照表,那个又不麻烦,直接用EXCEL的VLOOKUP函数就可以实现了

回复

在线用户

正浏览此版面之用户: Bing [Bot], Google [Bot] 和 2 访客