Estimados amigos foreros.... El código al final lo he dejado asíy me funciona bien:
Código:
For i = 1 To miColeccion.Count - 1
If InStr(miColeccion(i), TextDoc) <> 0 Then
For j = i - 5 To i + 27
List1.AddItem miColeccion(j)
Next j
End If
Next i
Pero quisiera, ya que he colocado un listbox con casilla de verificación al lado del listbox a donde extrigo el recibo, extraer el recibo del mismo funcionario para cada casilla del listbox que halla seleccionado, o sea para cada mes seleccionado. Pero no logro que me funcione, tal vez estoy colocando mal la sentencia....como les parece que lo solucione?
Código:
Private Sub Cargartxt()
On Error Resume Next
If (TextDoc < 1) Then
MsgBox "Debe digitar un documento para continuar"
Else
Dim BuscarDocumento As String
Dim strRuta As String 'declaras una variable en donde pones la ruta del archivo
Dim i As Long
Dim e As Long
Dim j As Long
Dim x As Long
Dim strLinea As String 'declaras otra variable en donde pones la linea que estas leyendo
Dim StrMesDeRecibo As String
StrMesDeRecibo = FormLeerRecibos.ListMeses.Text
Dim miColeccion As New Collection
strRuta = "C:\Pryecto recibo\Recibos\" & StrMesDeRecibo & ""
'----------------------------------------------
For x = 0 To ListMeses.ListCount - 1
If ListMeses.Selected(x) = True Then
Open strRuta For Input As #1 'Con esto abres el archivo
Do While Not EOF(1)
Line Input #1, strLinea 'y con esto lees linea por linea
miColeccion.Add strLinea
Loop
For i = 1 To miColeccion.Count - 1
If InStr(miColeccion(i), TextDoc) <> 0 Then
For j = i - 5 To i + 27
List1.AddItem miColeccion(j)
Next j
End If
Next i
Close #1 'con esto se cierra el archivo
End If
Next x
End If
End Sub