Listar nombre de hoja de calculo excel

[jorge....@brexia.pe]

Buenas tardes, si me ayudan necesito obtener los nombres de la hoja de calculo de un libro excel, 

Me explico estoy importando información desde un Libro excel, pero me gustaría que el usuario seleccione desde un listbox el nombre de  la hoja del libro en la que  trabajo su informe.

Gracias.

[Allan Raúl Acuña]

Hola, con las siguientes lineas puedes recorrer los nombres de las hojas:

gcFile = getfile()

loExcel = Createobject("Excel.application")

With loExcel

.Application.Workbooks.Open(gcFile)

.Visible = .T. && Muestro Excel

For i = 1 To loExcel.activeworkbook.sheets.Count

cHoja = Alltrim(Upper(loExcel.activeworkbook.sheets[i].Name))

loExcel.activeworkbook.sheets[i].Activate

lnCol = .ActiveSheet.UsedRange.Columns.Count  && -- Cantidad de columnas

lnFil = .ActiveSheet.UsedRange.Rows.Count     && -- Cantidad de filas

*------------------------------------------------------------------------

Next i

.ActiveWindow.Close(xlDoNotSaveChanges)

.Quit()

Endwith

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Tue, 30 Jun 2015 15:03:43 -0700
From: jorge....@brexia.pe
To: publice...@googlegroups.com
Subject: [vfp] Listar nombre de hoja de calculo excel

[Oscar Zuniga]

hola muy buenas dias

quiesiera que me ayudara ya hecho de todo no me funciona
quiesiera importar esto dato de excel llevarlo a un cursor o una base de dato en vfp o una tabla .

y esa codigo mefuncioanaria perfecto seria que me puede ayudar

graciasmi correo es oscarl...@hotmail.com