Generar archivo texto apartir de Excel

[vpino]

Hola señores del foro. como siempre aqui estoy en busca de una ayuda a mi necesidad.

Resulta que tengo un archivo en excel con varias hojas y necesito crear un archivo plano o texto. El registro a mostrar en el archivo texto esta determinado por el tamaño de cada campo; por ejemplo el registro es de 100 caracteres o digitos de los cuales el primer campo es de 11 digitos y el segundo campo de 89 caracteres.

Hay dos situaciones que no se manejar.

1. Yo no se en visual basic como definir un campo que sea de 11 digitos o 89 caracteres.

2. Desde Visual no se como leer una hoja especifica del un archivo en excel.

Agradezco cualquier colaboracion u orientacion del foro tal como lo he recibido en veces anteriores.

[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.

[alvaal7]

A ESTA RESPUESTA PINO TENGO UNA DUDA LA EJECUTASTE COMO MACRO O COMO CODIGO NORMAL DE VISUAL; NECESITO PARA GENERAR EL ARCHIVO ESTE CODIGO PERO NOSE COMO ES QUE ME PIDEN EN CADA COLUMNA Y COMPLETAR LOS CAMPOS CON CEROS O ESPACIOS SEGUN EL TAMAÑO,

Iniciado por 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.