local oWord oWord = createobject("Word.Application") oWord.Documents.Open( GetFile('DOC') ) oWord.Visible = .t. oWord.Activate
local oExcel oExcel = createobject("Excel.Application") oExcel.WorkBooks.Open( GetFile('XLS') ) oExcel.Visible = .t.
Public oForm lcFile = GetFile('HTM') && might be another file like XLS,DOC oForm = NewObject('HTMLViewerForm') oForm.Show oForm.htmlviewer.navigate2(m.lcFile) Define Class HTMLViewerForm As Form Height = 500 Width = 800 Add Object htmlviewer As OleControl With ; Height = 500, Width = 800, Visible = .T., ; OleClass = 'Shell.Explorer' Procedure htmlviewer.Refresh Nodefault Endproc EnddefineCetin