Power Builder - como adjuntar un exel...

   
Vista:

como adjuntar un exel...

Publicado por jaime (5 intervenciones) el 30/07/2008 22:20:27
Como seria el codigo para adjuntar un archivo en formato EXEL o WORD
si alguien me pudiera ayudar se loa gradeceria mucho...este es el codigo que tengo....

value = GetFileOpenName("Seleccione Fichero", docname, named, "DOC", + "Text Files (*.TXT),*.TXT, All Files (*.*)*.*,"+ "Doc Files (*.doc), *.doc,")
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como adjuntar un exel...

Publicado por Hugo (28 intervenciones) el 27/08/2008 07:30:30
esto es un ejemplo para adjuntar archivos desde excel a un datawindow en power builder. recuerda el datawindow que va recibir los datos debe tener los mismos campos que el rchivo excel y en las mismas posiciones.

OleObject loo_excel, lo_sheet

loo_excel = CREATE OleObject //creamos el objeto

loo_excel.ConnectToNewObject('excel.application')
loo_excel.Visible = FALSE
loo_excel.workbooks.open('C:archivo.xls') //ruta del archivo
lo_sheet = loo_Excel.Application.ActiveSheet
//Desprotegemos la hoja, ya que si esta protegida daría error
lo_sheet.Unprotect()
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
//Copiamos apartir de la segunda fila, ya que el la primera están las cabeceras
li_totrow = dw_datoie.ImportClipBoard(2)
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
// destruimos los objectos creados
DESTROY loo_excel
Destroy lo_sheet

espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar