Diccionario matriz regular ado

Código VBA (suponiendo que la cadena Json anterior esté almacenada en la celda A1 de la hoja de trabajo activa en Excel):

¿Opciones? ¿Subtítulo explícito

? ExtractJsonData()

¿Atenuado? objRegExp? ¿Como? Objetivo

¿Oscuro? objCoincidencia? ¿Como? Objetivo

¿Oscuro? ¿Coincidencia de objetos? ¿Como? ¿Configuración de objetivos

? objRegExp? =?CreateObject("VBScript. Expresión regular")

¿Qué usar? objRegExp

. ¿Ignorar caso? =?real

. ¿mundial? =?real

. ¿patrón? =?" ""problema"":""(\d ?)"",""opennum"":""(.*?)"""

¿Si? . ¿Prueba ([A1])? Entonces

¿establecer? ¿Coincidencia de objetos? =?. Ejecutar([A1])

¿Para qué? ¿Cada? objCoincidencia? ¿existir? Coincidencia de objetos

Depurar. ¿Imprimir? objMatch. subcoincidencia(0);? objMatch. submatch(1)

entonces

¿finalizar? Si

¿Finalizar? ¿Con el final? Resultados de la ejecución secundaria:

Las expresiones son valores de atributos de patrón en el código.