ADVPL - Abrir excel e arquivos no web. webapp

Salve, salvee 👋

Segue trecho de exemplo abaixo:

ADVPL – Abrir Excel e arquivos no WebApp

#INCLUDE "TOTVS.CH"

User Function webTst()

    ...

    ...

    oFWMsExcel:Activate()
    oFWMsExcel:GetXMLFile('\Temp\'+cArquivo)

    If GetRemoteType() == 5             // Verifica se é WEB ou Desktop
        If CPYS2TW('\Temp\'+cArquivo, .T.) == 0   // WEB
        Endif
    Else
        FWMakeDir(cRoot)
        CpyS2T('\Temp\'+cArquivo, cRoot, .F.)     // Desktop

        oExcelApp := MsExcel():New()
        oExcelApp:WorkBooks:Open(cRoot + cArquivo)
        oExcelApp:SetVisible(.T.)
        oExcel := Nil
    Endif

Return(Nil)

💡 Dica: esse exemplo mostra como abrir arquivos Excel tanto no ambiente WebApp quanto no Desktop, usando as funções CPYS2TW e CpyS2T.