先上效果图
在上程序
Public Sub SendPostRequest(aa As String)'MessageBox.Show(sheet.Name)Dim token As StringDim xmlhttp As ObjectDim xmlhttp1 As ObjectDim url As StringDim jsonParams As StringDim response As Stringxmlhttp = CreateObject("MSXML2.XMLHTTP")url = "http://newstocktest.xxx.com.cn:8088/inventory/login"jsonParams = "{""accountId"": ""hai.miao"", ""accountPwd"": ""Mh111"", ""lang"": ""zh_CN""}"xmlhttp.Open("POST", url, False)xmlhttp.setRequestHeader("Content-Type", "application/json")xmlhttp.send(jsonParams)response = xmlhttp.responseText' 处理响应数据'MsgBox(response)Debug.WriteLine(response)For i = 0 To UBound(Split(response, ","))If InStr(Split(response, ",")(i), "token") > 0 Thentoken = Split(Split(response, ",")(i), ":")(1).Replace("""", "")Exit ForEnd IfNext'Thread.Sleep(5000)xmlhttp1 = CreateObject("MSXML2.XMLHTTP")url = "http://newstocktest.xxx.com.cn:8088/inventory/invertory/list"Debug.WriteLine(token)Dim aa1 = aajsonParams = "{""name2"":""" & aa1 & """}"Debug.WriteLine(jsonParams)xmlhttp1.Open("POST", url, False)xmlhttp1.setRequestHeader("Content-Type", "application/json")xmlhttp1.setRequestHeader("tokenkey", token)xmlhttp1.send(jsonParams)response = xmlhttp1.responseTextDebug.WriteLine(response)Dim o As JObject = JObject.Parse(response)Dim results As List(Of JToken) = o.Children().ToListuserAbout.TextBox1.Text = aa1userAbout.DataGridView1.DataSource = NothinguserAbout.DataGridView1.Rows.Clear()For Each item As JProperty In resultsitem.CreateReader()Select Case item.NameCase "data"'Debug.WriteLine(item.Value)Dim o1 As JObject = JObject.Parse(item.Value.ToString)Dim results1 As List(Of JToken) = o1.Children().ToListFor Each item1 As JProperty In results1item1.CreateReader()Select Case item1.NameCase "content"Dim i = 1For Each subitem As JObject In item1.ValuesDebug.WriteLine(subitem("materCode"))Debug.WriteLine(subitem("materCndesc"))Dim rowIndex As Integer = userAbout.DataGridView1.Rows.Add()userAbout.DataGridView1.Rows(rowIndex).Cells(0).Value = iuserAbout.DataGridView1.Rows(rowIndex).Cells(1).Value = subitem("materCode")userAbout.DataGridView1.Rows(rowIndex).Cells(2).Value = subitem("materCndesc")userAbout.DataGridView1.Rows(rowIndex).Cells(3).Value = subitem("materAssist")'userAbout.DataGridView1.Rows(rowIndex).Cells(4).Value = subitem("materZl")'userAbout.DataGridView1.Rows(rowIndex).Cells(5).Value = subitem("stockNum")userAbout.DataGridView1.Rows(rowIndex).Cells(6).Value = subitem("stockNum")userAbout.DataGridView1.Rows(rowIndex).Cells(7).Value = subitem("materZl")i = i + 1NextCase "totalElements"End SelectNextEnd SelectNext'MessageBox.Show("hello")Debug.WriteLine("hello")'MessageBox.Show(sheet.Name)Debug.WriteLine(sheet.Name)
End Sub解析
1.aa是需要查询的字符串
2.定义一个网页连接，网址，传入的参数；然后打开网址，发送请求，传参。response是获取到返回的文本。如何获取可以传参的网页地址，要传入哪些参数，因网页不同而不同，具体方法请另外私信博主。此处是实现登录并获取返回的数据(主要是为了获取令牌，后续的数据获取都要在传参的同时传入令牌)
xmlhttp = CreateObject("MSXML2.XMLHTTP")url = "http://newstocktest.xxx.com.cn:8088/inventory/login"jsonParams = "{""accountId"": ""hai.miao"", ""accountPwd"": ""Mh111"", ""lang"": ""zh_CN""}"xmlhttp.Open("POST", url, False)xmlhttp.setRequestHeader("Content-Type", "application/json")xmlhttp.send(jsonParams)response = xmlhttp.responseText3.对返回的数据进行处理，获取token(令牌)
For i = 0 To UBound(Split(response, ","))If InStr(Split(response, ",")(i), "token") > 0 Thentoken = Split(Split(response, ",")(i), ":")(1).Replace("""", "")Exit ForEnd IfNextDebug.WriteLine(token)输出的数据如下
43531674-36de-4d4a-a940-db2bd1d2c711
4.登录进去以后，在相应的控件中继续传参，我这个实例中控件的id是name2，传入aa1字符串。这里要注意，发送请求时要传入token（令牌），否则时不会返回数据的。
xmlhttp1 = CreateObject("MSXML2.XMLHTTP")url = "http://newstocktest.xxx.com.cn:8088/inventory/invertory/list"Debug.WriteLine(token)Dim aa1 = aajsonParams = "{""name2"":""" & aa1 & """}"Debug.WriteLine(jsonParams)xmlhttp1.Open("POST", url, False)xmlhttp1.setRequestHeader("Content-Type", "application/json")xmlhttp1.setRequestHeader("tokenkey", token)xmlhttp1.send(jsonParams)response = xmlhttp1.responseText补充一句，传参的网址和我们手动登录的网址是不一样的，要获取常规网站的传参网址，请私信博主。
5.Debug.WriteLine(response)输出的数据如下，将这一串数据赋值给JObject变量，获取child(子项)，这里面我们主要获取data子项
{"status":"SUCCESS","message":"加载完成","data":{"content":[{"id":59679,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"131","lineMemo":"/体盖:氧阀订单,O标识,硬度测试：10%数量，晶间腐蚀:ASTM A262 E法,林德新加坡项目,3A标识/阀瓣:硬度测试：10%数量，晶间腐蚀:ASTM A262 E法/焊缝:焊后热处理,体圈AW-PT,硬度测试：10%数量/阀杆:硬度测试：10%数量,晶间腐蚀:ASTM A262 E法/清洗/测试要求：氧气阀清洗/油漆系统:不油漆/挂牌显示内容:GLOBE VALVE/R87853/0012AP0940/3BR112/ASME//阀门整机其他要求:86592-130,131所有阀门务必保证 相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36 ","auart":null,"zkclx":null,"materZl":"483","frozenNum":0.0},{"id":59681,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"31","lineMemo":"/体盖:氧阀订单,O标识/清洗/测试要求：氧气阀清洗/油漆系统:不锈钢不油漆/阀门整机其他要求:该订单所有阀门务必保证相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36 ","auart":null,"zkclx":null,"materZl":"812","frozenNum":0.0},{"id":59680,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"61","lineMemo":"/体盖:氧阀订单,O标识,硬度测试：10%数量/阀瓣:硬度测试：10%数量/焊缝:焊后热处理,体圈AW-PT,硬度测试：10%数量/阀杆:硬度测试：10%数量/清洗/测试要求：氧气阀清洗/油漆系统:不锈钢不油漆/挂牌显示内容:GLOBE VALVE/R87853/0012AP0590/3BR112/ASME//阀门整机其他要求:86592-60,61所有阀门务必保证相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36 ","auart":null,"zkclx":null,"materZl":"755","frozenNum":0.0}],"totalElements":3},"code":200}6.data子项下还有子项，我们还要获取content子项，代码体现在如下部分。
Dim o As JObject = JObject.Parse(response)Dim results As List(Of JToken) = o.Children().ToListuserAbout.TextBox1.Text = aa1userAbout.DataGridView1.DataSource = NothinguserAbout.DataGridView1.Rows.Clear()For Each item As JProperty In resultsitem.CreateReader()Select Case item.NameCase "data"'Debug.WriteLine(item.Value)Dim o1 As JObject = JObject.Parse(item.Value.ToString)Dim results1 As List(Of JToken) = o1.Children().ToListFor Each item1 As JProperty In results1item1.CreateReader()Select Case item1.NameCase "content"7.获取到content后，根据每个数据的名称填入datagridview控件
Case "content"Dim i = 1For Each subitem As JObject In item1.ValuesDebug.WriteLine(subitem("materCode"))Debug.WriteLine(subitem("materCndesc"))Dim rowIndex As Integer = userAbout.DataGridView1.Rows.Add()userAbout.DataGridView1.Rows(rowIndex).Cells(0).Value = iuserAbout.DataGridView1.Rows(rowIndex).Cells(1).Value = subitem("materCode")userAbout.DataGridView1.Rows(rowIndex).Cells(2).Value = subitem("materCndesc")userAbout.DataGridView1.Rows(rowIndex).Cells(3).Value = subitem("materAssist")'userAbout.DataGridView1.Rows(rowIndex).Cells(4).Value = subitem("materZl")'userAbout.DataGridView1.Rows(rowIndex).Cells(5).Value = subitem("stockNum")userAbout.DataGridView1.Rows(rowIndex).Cells(6).Value = subitem("stockNum")userAbout.DataGridView1.Rows(rowIndex).Cells(7).Value = subitem("materZl")i = i + 1Next此项目中Excel侧边栏式窗体是如何实现的？下一节会讲到。
技术交流，软件开发，欢迎微信沟通：
——Docker将一台服务器的镜像移动到另外一台服务器)