Tecnología pb6.5, informe de volcado de archivos de Excel
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