Generar archivo texto apartir de Excel

[vpino]

Buscando en el foro en contre la solucion a mi necesidad. Encontre unas funciones que permite completar los campos con ceros o espacios segun el tañamo.

Function PadL(CADENA, Longitud, Optional caracter)
If IsMissing(caracter) Then caracter = " "
If Longitud < Len(CADENA) Then
PadL = Left(CADENA, Longitud)
Else
PadL = Right(String(Longitud, caracter) & CADENA, Longitud)
End If
End Function
Function PadR(CADENA, Longitud, Optional caracter)
If IsMissing(caracter) Then caracter = " "
If Longitud < Len(CADENA) Then
PadR = Left(CADENA, Longitud)
Else
PadR = Left(CADENA & String(Longitud, caracter), Longitud)
End If
End Function

Para leer una hoja especicifa en un archivo de excel lo hago asi:
variable = xlsApp.Workbooks(1).Worksheets(3).Cells(Fil, 5)

donde Worksheets(3) es la hoja numero 3 del archivo

Espero pueda servir de ayuda tal como lo fue para mi.