Tengo un inconveniente, el siguiente es: Generar un archivo .txt Json con valores de un archivo Excel en macros.
Adjunto código
Código donde obtengo los datos de 2 columnas Excel, estos están agrupados en una matrix tanto como palabras de referencia como valores (Ejm. Impuesto = 20.00)
Sub macro_retenciones()
Sheets("Hoja1").Select
Dim i As Long
Dim j As Long
Dim myS As String
ultimaFila = Sheets("Hoja1").Range("D" & Rows.Count).End(xlUp).Row
j = 2
Dim arregloNombreColumna() As String
Dim cantidadRg As Long
cantidadRg = 2
ReDim Preserve arregloNombreColumna(1)
For i = 2 To ultimaFila
myS = Cells(i, 4).Value
If Len(myS) > 0 And myS <> "Monto" And InStr(myS, "Empleados") = 0 Then
If is_in_array(myS, arregloNombreColumna) = False Then
ReDim Preserve arregloNombreColumna(cantidadRg + 1)
arregloNombreColumna(cantidadRg - 2) = myS
cantidadRg = cantidadRg + 1
End If
End If
Next i
Dim Matrixalores() As String
ReDim Preserve Matrixalores(2, 1)
Dim strNombreColumna As String
Dim intIX As Long
Dim intIndiceContenido As Long
intIndiceContenido = 0
For i = 2 To ultimaFila
strNombreColumna = Cells(i, 4).Value
myS = Cells(i, 5).Value
If Len(myS) > 0 And InStr(myS, "Retenciones") = 0 Then
ReDim Preserve Matrixalores(2, intIndiceContenido)
intIX = index_in_array(strNombreColumna, arregloNombreColumna)
Matrixalores(0, intIndiceContenido) = intIX
Matrixalores(1, intIndiceContenido) = myS
intIndiceContenido = intIndiceContenido + 1
End If
Next i
Dim x As String
x = "3"
Este código me genera 2 matrices, una que se llama arregloColumnaNombre y otra Matrixalores a partir de estas 2 matrices requiero que se pueda generar un archivo Json que pueda tener por ejemplo, {valor_1:[{"Titulo1":"valor1","Titulo2":"Valor2"}]} encontré algunas referencias, no se si se utiliza alguna librería o si dentro de macros tiene alguna funcionalidad para Json.
Gracias de antemano Saludos