23/05/2011, 09:12
|
| | | Fecha de Ingreso: mayo-2011
Mensajes: 3
Antigüedad: 13 años Puntos: 0 | |
| Respuesta: Generar TXT excel
Pues creo es mas facil de esta forma pero gracias........
Lo comparto
Next Celda
FilaActual = MiRango.Cells(1).Row
FilaActual1 = MiRango.Cells(1).Column
total = MiRango.Count
contador = 1
For Each Celda In MiRango
If contador = total Then
Print #1, CStr(Celda); "";
Else
Print #1, CStr(Celda); "|";
End If
contador = contador + 1
Next Celda |