marcar un rango y copiar la informacion en otra hoja de excel desde vfp

[Noe]

Hola Foro !!!

espero me puedan ayudar. les doy las gracias de antemano, y es lo
siguiente

lo que pretendo es marcar un rango de un archivo de excel y copiar
dicho rango en una nueva hoja de excel a continuacion les muestro lo
que tengo

CreaExcel = CreateObject("Excel.Application")
CreaExcel.Visible=.t.
MiHoja = CreaExcel.Workbooks.Open("c:\issste\datos_excel
\conceptos.xls")
Rango = CreaExcel.ActiveSheet.Range("H1:H31")
Rango.NumberFormat = "######.#0"

Rango = CreaExcel.ActiveSheet.Range("A1:H30") .Select

si abre el archivo y tambien marca el rango, faltaria copiar, abrir
otro libro y pegar la informacion

Gracias

[Luis Maria Guayan]

...
...
CreaExcel.ActiveSheet.Range("A1:H30").Select
CreaExcel.Selection.Copy
CreaExcel.Workbooks.Add
CreaExcel.ActiveSheet.Range("A1").Select
CreaExcel.ActiveSheet..Paste

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Noe]

Hola Luis Maria !!!

Gracias por contestar lo puse en practica y funciono de maravilla

Gracias... hasta luego aHHHHHHHHHH, un ultimo favor como puedo marcar
todo el archivo de excel algunas veces el archivo es de 30, 15000,
20000 etc, etc

ahora si GRACIAS espero respuesta !!!!!!!!!!!!

On 3 abr, 21:49, Luis Maria Guayan <luismar...@gmail.com> wrote:
> ...
> ...
> CreaExcel.ActiveSheet.Range("A1:H30").SelectCreaExcel.Selection.CopyCreaExcel.Workbooks.AddCreaExcel.ActiveSheet.Range("A1").SelectCreaExcel.ActiveSheet..Paste
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

[Luis Maria Guayan]

Quizás esto te pueda ayudar:

-- Cantidad de filas y columnas de una planilla Excel --
http://www.portalfox.com/index.php?name=News&file=article&sid=449

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________