Power Builder - Excel y Power (Para Oscar)

Hola Oscar
En un post: http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=162894&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
Muestras un codigo de como exportar de excel a power,
mi consulta es si tengo varias hojas dentro de un libro en excel por ejemplo Mtto de Equipos(libro) tiene 10 hojas: (1)Aire Acondicionado (2)Grupos Electrogenos (3) Rectificadore, etc
como hago para que desde power por ejmplo en el codigo setee hoja (3) Grupo Electrogeno como activa y realizar procesos.
Muy agradecido por las sugerencias

Hola Martin:
Script con algunas variantes, para exportar la hoja que especifiques de Excel a PB:

excel = create OLEObject

li_rtn = excel.ConnectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','No puede conectarse a Excel')
DESTROY excel
RETURN 0
END IF

excel.WorkBooks.Open( "c:\miarchivo.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize

lb_sheet_rtn = excel.worksheets(2).Activate
excel.Worksheets(2).Range("A1:E5000").Copy // copiar al clipboard
//Copiar desde la segunda fila de Excel
ll_cnt = dw_1.importclipboard(2)
IF ll_cnt <= 1 THEN
Messagebox("Info", "No se encontró")
END IF

excel.Worksheets(2).Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------

Nota: Como habrás observado, sólo debes especificar el número de hoja en todos los lugares donde dice:
excel.Worksheets(2)....

O si prefieres, puedes escribir el nombre de la hoja, empleando comillas, por ejemplo:
excel.Worksheets( 'Aire Acondicionado' )....

Un saludo.

Sé que está demás, especificar el tipo de datos de las variables; pero por si acaso, se debía anteponer al anterior script lo siguiente:

OLEObject excel
Integer li_RetValue, li_rtn
Boolean lb_sheet_rtn
Long ll_cnt

//Luego, recién viene el script:
excel = create OLEObject
............ etc. //quizá, sirva a algún amigo que recién está comenzando...

Gracias Oscar
Te pasastes!!!

Hola esta chevere ese codigo
pero me sale un error
porfa haber si me puedes ayudar
es este

"" Error calling external object function worksheets ""

el error apunta a esta linea
==>> lb_sheet_rtn = excel.worksheets(2).Activate

Gracias amigos

Amigos. El codigo mostrado está muy claro .
Pero en caso que tenga que escribir datos insertando varias pestañas (hojas) en un libro excel... no lo gro encontrar el codigo.

Alguno de3 Uds. puede ayudarme con eso ?

Gracias

Walter