Red de conocimiento informático - Aprendizaje de programación - Tecnología pb6.5, informe de volcado de archivos de Excel

Tecnología pb6.5, informe de volcado de archivos de Excel

entero li_rtn, ii, li_asc

cadena ls_name, ls_pathname

booleano lb_exist

si datawin.RowCount()lt 1 entonces

; MessageBox("Mensaje", "¡Recupere los datos antes de exportarlos a Excel!")

return -1 //error

end if

li_rtn=GetFileSaveName ( "Guardar archivo", ls_pathname, ls_name, "xls", "Archivo Excel (*.xls), *.xls")

si li_rtn=1 entonces

lb_exist = FileExists ( ls_pathname) //ver si el archivo existe

IF lb_exist THEN

li_ rtn = MessageBox("Guardar", ls_pathname "ya existe, ¿sobrescribir o no?"), SíNo, ¡Exclamación!, ¡SíNo!)

end if

if li_rtn=1 then

// Cuando el archivo ya existe y el usuario elige sobrescribirlo, o el archivo no existe en absoluto Cuando no existe. Tenga en cuenta la variable li_rtn

li_rtn=datawin.SaveAsAscii(ls_pathname)

Si li_rtn=1 entonces

MessageBox("Mensaje", "¡Exporte datos correctamente! " )

else

MessageBox("Mensaje de error", "¡Error al exportar datos!")

return -1/error

finalizar si

más

devuelve -1/error

finalizar si

más

devuelve -1 / error

finalizar si

más

devolver -1

finalizar si