字典數組常規ado

VBA代碼(假設上述Json字符串存儲在Excel中活動工作表的單元格A1中):

選項？明確的

Sub？ExtractJsonData()

暗淡？objRegExp？作為？目標

暗淡？objMatch？作為？目標

暗淡？對象匹配？作為？目標

設置？objRegExp？=?CreateObject("VBScript。正則表達式”)

用什麽？objRegExp

。IgnoreCase？=?真實的

。全球？=?真實的

。格局？=?" " " issue"":""(\d+？)""，" " opennum " ":" "(。*?)"""

如果？。測試([A1])？然後

設置？對象匹配？=?。執行([A1])

為了什麽？每個？objMatch？在？對象匹配

調試。打印？objMatch。子匹配項(0)；？objMatch。子匹配項(1)

然後

結束？如果

結束？隨著

結束？子運行結果:

表達式是代碼中的模式屬性值。