¿Cómo abrir un archivo psr con PowerBuilder y guardarlo en formato xls?

. PSR es el formato para guardar informes de PB.

Importar a PB, luego exportar a Excel.

Si no es así, intente nuevamente el siguiente método:

PB (PowerBuilder) tiene un formato de archivo especial (llamado archivo PSR en este artículo), que guarda el informe que termina en PSR. Cuando un informe se guarda en formato PSR, muchas veces no sabemos cómo volver a abrirlo.

A continuación se presentará el método de apertura:

1. Primero cree un archivo de biblioteca vacío (archivo PBL), aquí denominado psropen, y su aplicación en el archivo de biblioteca también se denomina psropen. .

2. Cree otra ventana w_psropen y ajuste ligeramente sus propiedades, como ancho, alto, título, etc.

3. Agregue los botones CB_1, CB_2, CB_3 y CB_4 en la ventana, denominados Guardar como, Imprimir, Seleccionar archivo y Volver respectivamente.

4. Agregue la ventana de datos dw_1 a la ventana.

5. Código guardado al hacer clic en el botón:

¿Cadena? ls_Archivo,? ls_Path,? ls_Ext

GetFileSaveName("¿Guardar?Report",?ls_Path,?ls_File,?"psr",?"PSReport?File

(*.psr),?*.psr, ? "?+?& amp? (*.txt),? ¿archivo HTML? (*.htm)? >

(*.xls),*.xls”)

¿Si? ¿Recortar (ls_Path)? <>? ""?Entonces

ls_Ext? =?Abajo(right(ls_Path,3))

¿Seleccionar? ¿caso? ls_Ext

¿Caso? " psr "

dw_1. Guardar como (ls_Path, PSReport!,? true)

¿Caso? "texto"

dw_1. Guardar como (ls_Path, text!,? true)

¿Caso? " htm "

dw_1. Guardar como (ls_Path, HTMLTable!,? true)

¿Caso? " xls "

dw_1. Guardar como (ls_Path,Excel5!,?True)

¿Caso? Otros

MessageBox("¿Guardar? Informe",? "¿Ese? ¿Tipo? ¿De? ¿Archivo? ¿Guardado? ¿Sí? ¿Confirmado? ¿Después de

Eso? ¿Expansión.?"? +?& amp

"¿Usar?.psr?para qué?PSReport,?.txt'?para?texto,?.htm?para?lenguaje de marcado de hipertexto

Tabla,? o? para ¿Qué? ¿Excel5?",? ¡Suspiro!)

¿Fin? Seleccione

¿Finalizar? Si

6. Seleccione el código del botón de archivo en el que hizo clic:

¿Cadena? ls_Archivo,? ls_Path,? ls_Ext

¿Dragón? ¿do? =0, longitud del litio, posición del litio

GetFileOpenName("Abrir informe PSR", ls_Path,?ls_File,?"psr",?"PSReport?File

(*.psr) ,*.

psr,? "?)

Si?Trim(ls_Path)?& lt& gt?""?Entonces

ls_Ext?=?Abajo(right(ls_Path, 3))

Caso? ls_Ext

" psr"

dw_1.setredraw(falso)

dw_1.dataobject? p>

dw_1.setredraw(verdadero)

dw _ 1 . modificar(" ventana de datos . print . vista previa = Sí ")

Otro

MessageBox("Abrir informe PSR", "Este programa ¿¡Solo puedo abrir archivos PSR!?",? ¡Suspiro!,

¡Está bien!)

Volver

¿Finalizar? Seleccionar

¿Finalizar? Si

7. Haga clic en el código del botón de impresión: dw_1.print()

8. Haga clic en el código del botón de retorno: Cerrar (Padre)

9. : Abra (w_psropen) usando psropen. Luego guarde y ejecute, y listo.

Nota:

1. Se agrega especialmente un botón "Guardar como" a la ventana. Indica cómo se genera el formato del archivo PSR. Además, cuando el atributo de vista previa de la ventana de datos es falso, los datos del archivo PSR se pueden modificar. Después de la modificación, la función de modificación de datos del archivo PSR se puede lograr guardando en el. mismo nombre de archivo (siempre que la ventana de datos original se pueda modificar al guardar)

2.PBDWE60.DLL y PBVM60.DLL son archivos necesarios para admitir este programa.

3. El programa ha sido depurado bajo PB6.5