关于json文本写入与提取总是出错

mxf21cn

triplefish 发表于 2018-8-22 22:34
大神你好,我用你提供的例子，运行到那一步还是同样的错误，是不是引用有问题啊

{"OM":{"orderId":"1234567890","customerPhone":"13800138000","Name":"张三丰","Address":“北京长安街1号A","carrierName":"顺水物流",},"Invoice":"否","OI":[{"productId":"654321","productName":"teslamodel y" }]}
注意红色的部分，和你原来的字符串是不一样的

YZC51

假设json在A1单元格
Sub ss()
ar = Split([a1], """:")
For i = 2 To UBound(ar)
Cells(1, i) = ar(i)
Next
End Sub