Visual Basic - Excell microsoft visual basic error 13 en tiempo de ejecucion

Sub CreateFixedWidthFile(strFile As String, ws As Worksheet, s() As Integer, a() As String, t() As String)

    Dim i As Long, j As Long

    Dim strLine As String, strCell As String

     'get a freefile

    Dim fNum As Long

    fNum = FreeFile

     'open the textfile

    Open strFile For Output As fNum

    'new line

    strLine = ""

    'Codigo Reclamante

    strCell = Left$(ws.Cells(4, 2).Value, 7)

    strLine = strLine & strCell & String$(7 - Len(strCell), Chr$(32))

    'Tipo Reclamante

    strCell = Left$(ws.Cells(4, 7).Value, 9)

    strLine = strLine & strCell & String$(9 - Len(strCell), Chr$(32))

    'Cantidad Lineas

    strCell = Left$(ws.Cells(2, 10).Value, 7)

    strLine = strLine & strCell & String$(7 - Len(strCell), Chr$(32))

    'Total a Pagar

    strCell = Left$(ws.Cells(3, 10).Value, 15)

    strLine = strLine & strCell & String$(15 - Len(strCell), Chr$(32))

    'Fecha del dia

    strLine = strLine & Format(Now(), "ddmmyy")

    'RNC

    strCell = Left$(ws.Cells(2, 3).Value, 9)

    strLine = strLine & strCell & String$(9 - Len(strCell), Chr$(32))

    Print #fNum, strLine

    For i = 8 To ws.Range("a65536").End(xlUp).Row

        strLine = ""

        'loop through each field

        For j = 0 To UBound(s)

            'Si es tipo fecha se convierte segun la mascara del layout

            If IsDate(ws.Cells(i, j + 1)) Then

              strCell = Format(ws.Cells(i, j + 1).Value, "ddmmyy")

          ElseIf t(j) = N Then

              
  strCell = Replace(FormatNumber(ws.Cells(i, j + 1).Value, 2), ",", "")

            Else

              'Se eliminan guiones para Referencia (columna 1), Afiliado (Columna 3) y Cedula (columna 5) se eliminan los guiones

              If j = 0 Or j = 2 Or j = 4 Then

                strCell = Replace(ws.Cells(i, j + 1).Value, "-", "")

              ElseIf j = 17 Then

                strCell = Replace(Replace(Replace(ws.Cells(i, j + 1).Value, "F", "FT"), "C", "NC"), "D", "ND")

              Else

                strCell = ws.Cells(i, j + 1).Value

              End If

            End If

             'make sure we only take chars up to length of field (may want to output some sort of error if it is longer than field)

            If a(j) = L Then

              strCell = Left$(strCell, s(j))

            ElseIf a(j) = R Then

              strCell = Right$(strCell, s(j))

            End If

             'add on string of spaces with length equal to the difference in length between field length and value length

            strLine = strLine & strCell & String$(s(j) - Len(strCell), Chr$(32))

        Next j

         'write the line to the file

        Print #fNum, strLine

    Next i

     'close the file

    Close #fNum

End Sub

' Ejecuta las validaciones del archivo

Private Sub ValidaArchivo()

  On Error GoTo ErrorHandler

  '

  Dim i As Integer

  Dim e As Integer

  Dim v_error As String

  Dim dFechaDGII As Date

  Dim dFechaComp As Date

  '

  With Worksheets("DATA")

    '

    ' Valida que el reclamante se haya especifcado

    Worksheets("data").Cells(4, 29) = 0

    If Len(.Cells(4, 2)) = 0 Then

      .Cells(4, 2).Select

      result = MsgBox("El Código del Reclamante (Columna B4) debe ser especificado para ejecutar la validación.", vbOKOnly + vbCritical, "Error")

      Worksheets("data").Cells(4, 29) = -1

    ElseIf Len(.Cells(4, 4)) = 0 Then

      .Cells(4, 4).Select

      result = MsgBox("El Nombre del Reclamante (Columna D4) debe ser especificado para ejecutar la validación.", vbOKOnly + vbCritical, "Error")

      Worksheets("data").Cells(4, 29) = -1

    Else

      e = 0

      .Unprotect Password:="humsal"

    dFechaDGII = .Cells(1, 3)

      ' Error Desc Reset

      .Range("AA8:AA32000").ClearContents

      '

      ' Poner las letras en negro antes de comenzar

      With .Range("A8:AA32000").Font

          .ColorIndex = xlAutomatic

          .TintAndShade = 0

      End With

      '

      'For i = 8 To .Cells(2, 10) + 8 - 1

      For i = 8 To 32000

         '

         If i > 8 And Application.CountA(.Range(Cells(i, 1).Address & ":" & Cells(i, 25).Address)) = 0 Then

           Exit For

         End If

         v_error = ""

         ' Referencia Primera

         .Cells(i, 1) = UCase(.Cells(i, 1))

         If Len(.Cells(i, 1)) = 0 Then

           v_error = "La Referencia ARS (Columna #1) es obligatoria."

           e = e + 1

         ElseIf IsNumeric(Replace(Replace(.Cells(i, 1), "-", ""), "P", "")) = False Or InStr(.Cells(i, 1), ".") <> 0 Or Right(.Cells(i, 1), 1) = "-" Or Left(.Cells(i, 1), 1) = "-" Or Len(.Cells(i, 1)) - Len(Replace(.Cells(i, 1), "-", "")) > 3 Or Len(.Cells(i, 1)) - Len(Replace(.Cells(i, 1), "P", "")) > 1 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "La Referencia ARS (Columna #1) debe contener solamente Números, Guiones (Máximo 3) y el Identificador P."

           e = e + 1

         End If

         ' Fecha de Servicio

         If Len(.Cells(i, 2)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "La Fecha de Servicio (Columna #2) es obligatoria."

           e = e + 1

         ElseIf IsDate(.Cells(i, 2)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "La Fecha de Servicio (Columna #2) no tiene un formato valido."

           e = e + 1

         End If

         ' Afiliado

         If Len(.Cells(i, 3)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Afiliado (Columna #3) es obligatorio."

           e = e + 1

         ElseIf IsNumeric(Replace(.Cells(i, 3), "-", "")) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Afiliado (Columna #3) debe contener solamente números y guiones."

           e = e + 1

         End If

         '

         ' Total Reclamado

         If Len(.Cells(i, 6)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total Reclamado (Columna #6) es obligatorio."

           e = e + 1

         ElseIf IsNumeric(.Cells(i, 6)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total Reclamado (Columna #6) debe ser numérico."

           e = e + 1

         End If

         'Sumar la columna 7 y 8

         .Cells(i, 9) = .Cells(i, 7) + .Cells(i, 8)

         ' Total a Pagar

         If Len(.Cells(i, 9)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total a Pagar (Columna #9) no debe ser cero, coloque un valor en la casilla Monto Servicio y/o Bien según corresponda."

           e = e + 1

         ElseIf IsNumeric(.Cells(i, 9)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total a Pagar (Columna #9) debe ser numérico."

           e = e + 1

         ElseIf .Cells(i, 9) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total a Pagar (Columna #9) no debe ser cero, coloque un valor en la casilla Monto Servicio y/o Bien según corresponda."

           e = e + 1

         ElseIf .Cells(i, 9) <> (.Cells(i, 7) + .Cells(i, 8)) Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Total a Pagar (Columna #9) es la suma de Monto Servicios + Monto Bien, verifique."

           e = e + 1

         End If

        ' Fecha Factura

        If Len(.Cells(i, 12)) > 0 And IsDate(.Cells(i, 12)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(12)

           End If

           v_error = v_error + "La Fecha de Factura (Columna 12) no tiene un formato valido."

           e = e + 1

         End If

         '.Cells(i, 27) = v_error

         '.Cells(4, 10) = e

       ' Tipo de Servicio

        .Cells(i, 13) = UCase(.Cells(i, 13))

        If Len(.Cells(i, 13)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Tipo de Servicio (Columna #13) es obligatorio."

           e = e + 1

         ElseIf .Cells(i, 13) <> "AMB" And .Cells(i, 13) <> "EME" And .Cells(i, 13) <> "HOS" And .Cells(i, 13) <> "LAB" And .Cells(i, 13) <> "FAR" And .Cells(i, 13) <> "ODO" Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Tipo de Servicio (Columna #13) no está dentro de las opciones válidas."

           e = e + 1

         End If

        ' Sub-Tipo de Servicio

         .Cells(i, 14) = UCase(.Cells(i, 14))

         If .Cells(i, 13) = "EME" Or .Cells(i, 13) = "HOS" Or .Cells(i, 13) = "LAB" Then

           .Cells(i, 14) = "OT"

         End If

         If Len(.Cells(i, 14)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Sub-Tipo de Servicio (Columna 14) es obligatorio."

           e = e + 1

         ElseIf .Cells(i, 14) <> "AQ" And .Cells(i, 14) <> "CS" And .Cells(i, 14) <> "CV" And .Cells(i, 14) <> "DI" And .Cells(i, 14) <> "DO" And .Cells(i, 14) <> "DT" And .Cells(i, 14) <> "EC" And .Cells(i, 14) <> "EN" And .Cells(i, 14) <> "FM" And .Cells(i, 14) <> "HD" And .Cells(i, 14) <> "LB" And .Cells(i, 14) <> "MG" And .Cells(i, 14) <> "MS" And .Cells(i, 14) <> "OD" And .Cells(i, 14) <> "OT" And .Cells(i, 14) <> "PT" And .Cells(i, 14) <> "RX" And .Cells(i, 14) <> "TG" And .Cells(i, 14) <> "VC" Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Sub-Tipo de Servicio (Columna 14) no está dentro de las opciones válidas."

           e = e + 1

         End If

         If IsDate(.Cells(i, 15)) = True Then dFechaComp = .Cells(i, 15)

         If dFechaComp < dFechaDGII Then

            ' NCF 16

            If Len(.Cells(i, 16)) = 0 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "El NCF es obligatorio."

              e = e + 1

            ElseIf IsNumeric(Mid(.Cells(i, 16), 1, 1)) = True Or IsNumeric(Mid(.Cells(i, 16), 2)) = False Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF (Columna #16) Incorrecto."

              e = e + 1

            ElseIf (Mid(.Cells(i, 16), 1, 1) = "B") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "El NCF debe ser Tipo A (Columna #16), el Tipo B no está vigente para la fecha del NCF Indicado."

              e = e + 1

            ElseIf Len(.Cells(i, 16)) <> 19 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF (Columna #16) con Longitud Invalida"

              e = e + 1

            ElseIf (Mid(.Cells(i, 16), 1, 1) <> "A" And Mid(.Cells(i, 16), 1, 1) <> "P") Or (Mid(.Cells(i, 16), 10, 2) <> "01" And Mid(.Cells(i, 16), 10, 2) <> "03" And Mid(.Cells(i, 16), 10, 2) <> "04") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + " NCF (Columna #16) con Formato Invalido."

              e = e + 1

            End If

        Else

            ' NCF 16

            If Len(.Cells(i, 16)) = 0 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "El NCF es obligatorio."

              e = e + 1

            ElseIf IsNumeric(Mid(.Cells(i, 16), 1, 1)) = True Or IsNumeric(Mid(.Cells(i, 16), 2)) = False Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF (Columna #16) Incorrecto."

              e = e + 1

            ElseIf (Mid(.Cells(i, 16), 1, 1) = "A") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "El NCF debe ser Tipo B (Columna #16), el Tipo A no es válido para la fecha del NCF Indicado."

              e = e + 1

            ElseIf (Mid(.Cells(i, 16), 1, 1) <> "B") Or (Mid(.Cells(i, 16), 2, 2) <> "01" And Mid(.Cells(i, 16), 2, 2) <> "03" And Mid(.Cells(i, 16), 2, 2) <> "04") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Tipo B (Columna #16) con Formato Invalido."

              e = e + 1

            ElseIf Len(.Cells(i, 16)) <> 11 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Tipo B (Columna #16) con Longitud Invalida."

              e = e + 1

            End If

        End If

         ' Fecha NCF

         If Len(.Cells(i, 15)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "La Fecha NCF (Columna #15) es obligatoria."

           e = e + 1

         ElseIf IsDate(.Cells(i, 15)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "La Fecha NCF (Columna #15) no tiene un formato valido."

           e = e + 1

         End If

         ' Tipo de Comprobante

         .Cells(i, 17) = UCase(.Cells(i, 17))

        If dFechaComp < dFechaDGII Then

            ' Asignacion Automatica Tipo segun Estructura de NCF

            If Mid(.Cells(i, 16), 10, 2) = "01" Then

              Cells(i, 17) = "F"

            ElseIf Mid(.Cells(i, 16), 10, 2) = "03" Then

              Cells(i, 17) = "D"

            ElseIf Mid(.Cells(i, 16), 10, 2) = "04" Then

              Cells(i, 17) = "C"

            End If

         Else

            ' Asignacion Automatica Tipo segun Estructura de NCF

            If Mid(.Cells(i, 16), 2, 2) = "01" Then

              Cells(i, 17) = "F"

            ElseIf Mid(.Cells(i, 16), 2, 2) = "03" Then

              Cells(i, 17) = "D"

            ElseIf Mid(.Cells(i, 16), 2, 2) = "04" Then

              Cells(i, 17) = "C"

            End If

         End If

         If Len(.Cells(i, 17)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Tipo de Comprobante (Columna #17) es obligatorio."

           e = e + 1

         ElseIf .Cells(i, 17) <> "F" And .Cells(i, 17) <> "D" And .Cells(i, 17) <> "C" Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Tipo de Comprobante (Columna #17) no está dentro de las opciones válidas."

           e = e + 1

         End If

         If (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And Len(.Cells(i, 19)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El NCF Modificado (Columna #19) es obligatorio para las Notas de Débito y Crédito."

           e = e + 1

         End If

         If Mid(.Cells(i, 19), 1, 1) = "A" Then

            If (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And (IsNumeric(Mid(.Cells(i, 19), 1, 1)) = True Or IsNumeric(Mid(.Cells(i, 19), 2)) = False) Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) Incorrecto."

              e = e + 1

            ElseIf (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And Len(.Cells(i, 19)) <> 19 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) con Longitud Invalida."

              e = e + 1

            ElseIf (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And ((Mid(.Cells(i, 19), 1, 1) <> "A" And Mid(.Cells(i, 19), 1, 1) <> "P") Or Mid(.Cells(i, 19), 10, 2) <> "01") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) con Formato Invalido."

              e = e + 1

            End If

        Else

            If (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And (IsNumeric(Mid(.Cells(i, 19), 1, 1)) = True Or IsNumeric(Mid(.Cells(i, 19), 2)) = False) Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) Incorrecto."

              e = e + 1

            ElseIf (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And Len(.Cells(i, 19)) <> 11 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) con Longitud Invalida."

              e = e + 1

            ElseIf (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And ((Mid(.Cells(i, 19), 1, 1) <> "B") Or Mid(.Cells(i, 19), 2, 2) <> "01") Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "NCF Modificado (Columna #19) con Formato Invalido."

              e = e + 1

            End If

        End If

        ' Monto Nota Debito/Credito

         If (.Cells(i, 17) = "D" Or .Cells(i, 17) = "C") And Len(.Cells(i, 20)) = 0 Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Monto NC y/o ND (Columna #20) es obligatorio para las Notas de Débito y Crédito."

           e = e + 1

         ElseIf Len(.Cells(i, 20)) > 0 And IsNumeric(.Cells(i, 20)) = False Then

           If Len(v_error) > 0 Then

             v_error = v_error + Chr(10)

           End If

           v_error = v_error + "El Monto NC y/o ND (Columna #20) solamente puede ser numérico."

           e = e + 1

         End If

         ' Fecha Vencimiento NCF

         If dFechaComp >= dFechaDGII Then

            If Len(.Cells(i, 18)) = 0 Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "Para la Fecha de NCF Indicada, la Fecha de Vencimiento del NCF (Columna #18) es obligatoria."

              e = e + 1

            ElseIf IsDate(.Cells(i, 18)) = False Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "La Fecha Vencimiento NCF (Columna #18) no tiene un formato valido."

              e = e + 1

             ElseIf .Cells(i, 18) < dFechaComp Then

              If Len(v_error) > 0 Then

                v_error = v_error + Chr(10)

              End If

              v_error = v_error + "La Fecha Vencimiento NCF (Columna #18) No debe ser menor a la fecha del Comprobante."

              e = e + 1

            End If

         End If

         .Cells(2, 10) = i - 8 + 1    'JADB: Se cambio por un CountA

         .Cells(i, 27) = v_error

         Worksheets("data").Cells(4, 10) = e

         .Cells(4, 10) = e   'JADB: Se cambio por un CountA

         '

         '

         ' Pon las lineas con error en color rojo

         If Len(.Cells(i, 27)) > 0 Then

           With .Range("A" & CStr(i) & ":AA" & CStr(i)).Font

            .Color = -16776961

            .TintAndShade = 0

          End With

         End If

         '

      Next i

     .EnableAutoFilter = True

     .Protect Password:="humsal", contents:=True, userInterfaceOnly:=True

      Exit Sub

    End If

  End With

ErrorHandler:

  e = e + 1

  Worksheets("data").Unprotect Password:="humsal"

  'Worksheets("data").Cells(4, 10) = e

  'Worksheets("data").Cells(i, 27) = "Error de estructura en columna por formato no soportado."

  Worksheets("data").EnableAutoFilter = True

  Worksheets("data").Protect Password:="humsal", contents:=True, userInterfaceOnly:=True

  Resume Next

End Sub

' Validar archivo

Private Sub CommandButton1_Click()

  ValidaArchivo

  If Worksheets("data").Cells(4, 29) = -1 Then

     MsgBox ("Archivo Validado Con Error!")

     Exit Sub

  End If

  '

  e = Worksheets("data").Cells(4, 10)

  If Worksheets("data").Cells(4, 10) = 0 Then

      MsgBox ("Archivo Validado Sin Errores !")

  Else

      MsgBox ("Archivo Validado Con " & CStr(e) & " Error(es). Verifique la columna Inconsistencias !")

  End If

End Sub

' Generar archivo

Private Sub CommandButton2_Click()

    'Ejecuta la validacion antes de generar el archivo

    'ValidaArchivo

    'If Worksheets("data").Cells(4, 29) = -1 Then

    '  MsgBox ("El Código (Columna B4) o el nombre (Columna D4) del Reclamante debe ser especificado. Complete la información requerida y proceda a generar.")

    '  Exit Sub

    'End If

    If Worksheets("data").Cells(2, 10) = 0 Then

      MsgBox "No hay líneas validadas para generar el archivo de texto. Complete la información requerida y proceda a Validar."

      Exit Sub

    End If

    If Worksheets("data").Cells(4, 10) > 0 Then

      MsgBox "No es posible generar el archivo debido a que se encontraron Errores de Validación. Debe corregirlos y Validar nuevamente."

      Exit Sub

    End If

    Dim sPath As String

    sPath = Application.GetSaveAsFilename("", "Text Files,*.txt")

    If LCase$(sPath) = "false" Then Exit Sub

     'specify the widths of our fields

     'the number of columns is the number specified in the line below +1

    Dim s(30) As Integer

    Dim a(30) As String

    Dim t(30) As String

     'starting at 0 specify the width of each column

'Referencia ARS  1   0

s(0) = 15

a(0) = L

t(0) = "A"

'Fecha Servicio  2   1

s(1) = 6

a(1) = L

t(1) = "A"

'Afiliado    3   2

s(2) = 20

a(2) = L

t(2) = "A"

'Nombre Afiliado 4   3

s(3) = 160

a(3) = L

t(3) = "A"

'Cedula  5   4

s(4) = 11

a(4) = L

t(4) = "A"

'Total Reclamado 6   5

s(5) = 12

a(5) = R

t(5) = N

'Monto Servicio  7   6

s(6) = 12

a(6) = R

t(6) = N

'Monto Bien  8   7

s(7) = 12

a(7) = R

t(7) = N

'Total a Pagar   9   8

s(8) = 12

a(8) = R

t(8) = N

'Total Afiliado  10  9

s(9) = 12

a(9) = R

t(9) = N

'Factura PSS 11  10

s(10) = 20

a(10) = L

t(10) = "A"

'Fecha Factura PSS   12  11

s(11) = 6

a(11) = L

t(11) = "A"

'Tipo Servicio   13  12

s(12) = 3

a(12) = L

t(12) = "A"

'Subtipo Servicio    14  13

s(13) = 2

a(13) = L

t(13) = "A"

'Fecha NCF   15  14

s(14) = 6

a(14) = L

t(14) = "A"

'NCF 16  15

s(15) = 19

a(15) = L

t(15) = "A"

'Tipo Comprobante    17  16

s(16) = 2

a(16) = L

t(16) = "A"

'Fecha Venc. NCF 18  17

s(17) = 6

a(17) = L

t(17) = "A"

'NCF Modificado  19  18

s(18) = 19

a(18) = L

t(18) = "A"

'Monto ND/NC 20  19

s(19) = 12

a(19) = R

t(19) = N

'Monto ITBIS 21  20

s(20) = 12

a(20) = R

t(20) = N

'Monto ISC   22  21

s(21) = 12

a(21) = R

t(21) = N

'Monto Otros Imp 23  22

s(22) = 12

a(22) = R

t(22) = N

'Telefono    24  23

s(23) = 20

a(23) = L

t(23) = "A"

'Celular 25  24

s(24) = 20

a(24) = L

t(24) = "A"

'Email   26  25

s(25) = 60

a(25) = L

t(25) = "A"

    'wri    te to file the data from the activesheet

    CreateFixedWidthFile sPath, ActiveSheet, s, a, t

    MsgBox ("Archivo Generado Exitosamente")

End Sub