HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main

   DEFINE WINDOW Win_1 ;
      ROW 0 ;
      COL 0 ;
      WIDTH 440 ;
      HEIGHT 240 ;
      TITLE 'Excel to DBF' ;
      MAIN
      
      ON KEY ESCAPE ACTION  Win_1.Release        
        
      DEFINE MAIN MENU
         DEFINE POPUP "Conversion"
            MENUITEM 'Import Excel data' ACTION ImportData()
         END POPUP
      END MENU
        
   END WINDOW
   Win_1.Center
   Win_1.Activate

Return

Function ImportData
   LOCAL oExcel, oWorksheet, i

   IF ! MsgYesNo('Start to process?','Confirm')
      return
   endif   

   oExcel := CreateObject( "Excel.Application")
   oExcel:Workbooks:Open( GetCurrentFolder()+"\newshop.xls" )    // here right name 
   oExcel:Visible := .t.
   sele a
   use shoptype
   zap
   
   for i = 4 to 7   // here
      cTypeO=oExcel:WorkSheets(1):cells(i,2):value
      cTypeN=oExcel:WorkSheets(1):cells(i,3):value
      cCustCode=left(oExcel:WorkSheets(1):cells(i,4):value,6)
      cCustName=subs(oExcel:WorkSheets(1):cells(i,4):value,8,50)
      appe blank
      repl typeo with cTypeO, typen with cTypeN, cust_code with cCustCode, cust_name with cCustName
   next
   close databases
Return