Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/11/2007, 09:30
Avatar de vpino
vpino
 
Fecha de Ingreso: diciembre-2004
Ubicación: colombia
Mensajes: 265
Antigüedad: 19 años, 5 meses
Puntos: 0
Re: Generar archivo texto apartir de Excel

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.