Abrir archivo y rango de impresion con macros

Hola Amigo.

1) Prueba esto: Donde en la celda A1: esta el nombre ejemplo c:\ejemplo.txt
Var = Range("A1").Value
Workbooks.OpenText Filename:=Var

2) Mira yo lo resolvería creando variables por ejemplo:

Range(Selection, Selection.End(xlDown)).Select
filas = Selection.Count

Range(Selection, Selection.End(xlToRight)).Select
columnas = Selection.Count

A continuación lo inserto dentro del código de impresión.

ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & fila

ActiveSheet.PageSetup.PrintArea = "$A$" & fila & ":$H$" & columna, etc.

Depende de ti el trato que le des.

Bueno espero haberte ayudado.

Saludos

RENZO IMAN


"mrclinker" escribió:

Estimados expertos:

Dos preguntas concretas:

1) Cómo hago para abrir un archivo con la instrucción
Workbooks.OpenText Filename:= "nomarch.txt" pero el nombre del archivo
está guardado en una celda de Excel.

2) Utilizo estas instrucciones para definir un rango de impresión:
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$93"

¿Hay alguna forma de que el área de impresión no quede en coordenadas
absolutas, o sea, si proceso otro archivo con este mismo macro que el
área de impresión se ajuste según las instrucciones Range?

Muchas gracias, y feliz 2008!!!

Mr.Clinker