Excel VBA使用REST使用独立站点Minder Cookie与Jira通信

我继承了一个Excel跟踪表，代码最初是由后来离开公司的其他人创建的

我们有一个Excel VBA跟踪表，它与Jira进行通信，并用于无任何问题地获取项目和问题，直到我们的公司从cookies的站点管理员更改为更安全cookies的“独立站点管理员”，由于转换为独立站点minder cookie认证，我们的Excel跟踪表将从Jira获取项目密钥，没有任何问题，但无论我们查询Jira的是哪个项目，无论我们如何更改代码，它都不会看到问题“密钥”并筛选和获取项目的正确问题。我不像Excel VBA那样出色，但我确实理解并能够遵循代码的操作并进行一些小的调整，但我现在继承了这个跟踪表，不太擅长Jira代码和相互沟通

代码如下：

公共函数httpGet（ByVal url作为字符串）作为字符串（）
Dim resultArray（2）作为字符串
将PostData设置为字符串
url=baseurl+url
暗显smiwhr作为新SMIsolatedWinHttpRequest
使用CreateObject（“WinHTTP.WinHTTPrequest.5.1”）
.Option（WinRequestOption_EnableRedirects）=真
.Option（WinRequestOption_EnableHttpsToHttpRedirects）=真
smiwhr.NewRequest“GET”，url
smiwhr.发送PostData
.打开“获取”，url，False
.SetRequestHeader“内容类型”、“应用程序/json”
.SetRequestHeader“接受”、“应用程序/json”
.SetRequestHeader“Cookie”，sCookie
.发送
结果数组（0）=状态
结果数组（1）=.ResponseText
以
httpGet=resultArray
端函数

有一个函数用于获取包含以下代码的请求：

公共函数getRequestByPaging（ByVal projectKey作为字符串，ByVal StartIndex作为整数，可选maxResults作为整数，可选字段作为字符串）作为对象
Dim resultArray（）作为字符串
Dim api作为字符串
Dim jql作为字符串
将PostData设置为字符串
api=“rest/api/2/search”
jql=“project=“&projectKey&”和issuetype！=“project\”按键ASC排序
PostData=“{”
PostData=PostData+toJson（“jql”，jql）+”
PostData=PostData+toJson（“StartAt”，StartIndex）+”
如果maxResults为“”，则
PostData=PostData+toArray（“字段”，字段）+“
如果结束
PostData=Mid（PostData，1，Len（PostData）-1）
PostData=Post+“}”
端函数

jql部分确实获取了项目密钥，当它将项目的详细信息发送到Json时，它返回了错误的问题密钥

Json函数如下所示：

公共函数toJson（byVal作为字符串，byVal值作为字符串）作为字符串
如果value=”“，则
toJson=“”+键+”：空
其他的
toJson=“”+键+”：“+值+”“
如果结束
端函数

---

在编辑原始问题并向其添加语法突出显示（否则您的代码无法读取）时，非常感谢您提供的任何帮助，我注意到相关函数中的语法可能是错误的：

你做到了：

如果值=”，则
toJson=“”+键+”：空
“^^^^缺失”
其他的
toJson=“”+键+”：“+值”
“^失踪+
如果结束

应该是这样的：

如果值=”，则
toJson=“”+键+”：空
其他的
toJson=“”+键+”：“+值+”“
如果结束

非常感谢，我将检查代码并重试