HMGforum.com

Code: Select all

Function Exp_2_XLS()

 /* CLOSE THIS MODAL WINDOWS  */
 /* CIERRA ESTA VENTANA MODAL */

Thiswindow.release

/* FUNCTION ON MAIN WITH JUST A SINGLE LINE -> Thiswindow.Minimize  (MINIMIZE TOOLBAR [MAIN])   */
/* FUNCION EN MAIN CON UNA SOLA LINEA       -> Thiswindow.Minimize  (MINIMIZA LA TOOLBAR [MAIN])*/

SET_FOCUS_BY_ MINIMIZE_MAIN()


/* EXPORT & OPEN EXCEL */
/* EXPORTADO Y APERTURA DEL ARCHIVO EN EXCEL */

use DAUX.dbf
COPY TO ('File_Archivo.XLS')
DBCLOSEALL()

Execute File 'excel.exe' PARAMETERS 'File_Archivo.XLS'

Return

Code: Select all

FUNCTION OnepExcelandGetHandle()
   LOCAL oExcel, oSheet
   oExcel := CreateObject( "Excel.Application" )
   oExcel:Visible := .F.
  
   hWnd:=oExcel:hWnd

   oSheet := oExcel:Workbooks:Open("c:\Your_FilePath\Book1.xlsx")
   
   oExcel:Visible := .T.
   RETURN hWnd

Code: Select all

#include "hmg.ch"

FUNCTION Main()
Public hwnd

   DEFINE WINDOW Form_1   ;
      AT 90,90            ;
      WIDTH 500           ;
      HEIGHT 300          ;
      TITLE "Demo"        ;
      MAIN
      ON KEY ESCAPE ACTION THISWINDOW.RELEASE
  
   END WINDOW

   @ 50, 50 BUTTON button       ;
      PARENT Form_1             ;
      CAPTION "Excel_Open"      ;
      WIDTH 100                 ;
      HEIGHT 50                 ;
      ONCLICK OnepExcelandGetHandle()
      
  @ 50, 200 BUTTON button2      ;
      PARENT Form_1             ;
      CAPTION "hWnd of Excel"   ;
      WIDTH 100                 ;
      HEIGHT 50                 ;
      ONCLICK MSGINFO(hWnd, "Handle of Excel" + SPACE(10))       
      
   @ 150, 50 BUTTON button3     ;
      PARENT Form_1             ;
      CAPTION "BringToTop"      ;
      WIDTH 100                 ;
      HEIGHT 50                 ;
      ONCLICK BringWindowToTop(hWnd) 

   @ 150, 200 BUTTON button4    ;
      PARENT Form_1             ;
      CAPTION "Show Excel"      ;
      WIDTH 100                 ;
      HEIGHT 50                 ;
      ONCLICK SHOWWINDOW(hWnd) 
   @ 150, 350 BUTTON button5    ;
      PARENT Form_1             ;
      CAPTION "Hide Excel"           ;
      WIDTH 100                 ;
      HEIGHT 50                 ;
      ONCLICK HIDEWINDOW(hWnd) 


   Form_1.Activate

   RETURN NIL


FUNCTION OnepExcelandGetHandle()
   LOCAL oExcel, oSheet
   oExcel := CreateObject( "Excel.Application" )
   oExcel:Visible := .F.
  
   hWnd:=oExcel:hWnd

   oSheet := oExcel:Workbooks:Open("c:\Your_FilePath\Book1.xlsx")
      
   oExcel:Visible := .T.
   RETURN hWnd