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

hola, !

1) Como hago para abrir un archivo con la instruccion Workbooks.OpenText Filename:= "nomarch.txt"
pero el nombre del archivo esta guardado en una celda de Excel.

(p.e.) Workbooks.OpenText FileName:=<hoja y celda donde esta la ruta y nombre del archivo *.txt>

2) Utilizo estas instrucciones para definir un rango de impresion:
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 area de impresion no quede en coordenadas absolutas
o sea, si proceso otro archivo con este mismo macro que el area de impresion se ajuste segun las instrucciones Range?

(p.e.) si la hoja (del archivo) que vas a imprimir no tiene definida una area de impresion -?-
la simple instruccion de impresion (p.e. ActiveSheet.PrintOut) toma por omision todo el rango usado

o... si tienes varios rangos (o tablas) en esa hoja y necesitas solo el area adyacente a la celda A1...
ActiveSheet.PageSetup.PrintArea = Range("a1").CurrentRegion.Address

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.