ADVPL - Abrir excel e arquivos no web. webapp

Salve, salvee

Segue trecho de exemplo abaixo

ADVPL - Abrir excel e arquivos no web. 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 )