Colección de citas famosas - Libros antiguos - Con respecto al tema de las expresiones regulares en VBA, se deben agregar puntos válidos.

Con respecto al tema de las expresiones regulares en VBA, se deben agregar puntos válidos.

VBA puede usar funciones que vienen con Excel, como Application.WorsheetFunction

Usar Find() para buscar

Marcar TestStr como una cadena

TestStr = " ltstyle ABCDEFGHIJKLMN estilo

DIm StaPo como entero

StaPo = Aplicación. FIND("Estilo", teststr, 1) 6 'El carácter que estás buscando tiene 6 bits de longitud. Número.

Dim EndPo como entero

EndPo = application.WorsheetFunction.FIND("style>, TestStr, StaPo 1)

Esto es lo que quieres. .

MidStr = Aplicación. Función de hoja de trabajo Mid(TestStr, StaPo, EndPo-StaPo-6)