Profox > Forum

Forum Home

Visual FoxPro

Win32 API

Open DBF with E...

Open DBF with Excel, OpenOffice ...

11/12/2005 10:48:43 AM

Costel

227 posts

www.adrisoft.ro

Open DBF with Excel, OpenOffice ...
(Romania)

Salut !
Ma intilnesc cu urmatoarea problema: vreau ca din aplicatia mea la un momendat datele prelucrate si salvate intr-un DBF sa poata fi deschise cu aplicatia asociata S.O. de pe calculatorul respectiv. Pentru aceasta flosesc urmatoarele variante de cod :
1.
     *     cFis - cale\nume.dbf
            loShell = CreateObject("wscript.shell")
            loShell.Run((cFis))
2.
   DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
       INTEGER handle, STRING @sFile, STRING @lp,;
                   STRING @dir, STRING @dir1, INTEGER ncmd
   lcOperation='Open'
    * lcFile - cale\nume.dbf
   lnRetVal = ShellExecute(0, lcOperation, lcFile, "", "", 1)

toate bune si frumoase pe calc. meu Win'98 dar pe un XP primesc mesajul ca nu ar exista asociere intre extensia DBF si o aplicatie din S.O. desi ea exista (pot deschide din explorer fisierul cu pricina).
Rezolvare :
    loExcel = Createobject([Excel.Application])
    loExcel.Workbooks.Open(lcFile)
          loExcel.Visible= .T.

dar mie nu imi place aceasta rezolvare deoarece ma leaga de Excel. Exista o rezolvare pentru aceasta situatie ?

Nu munci atit de mult incit sa nu-ti mai ramina timp ca sa cistigi bani. (proverb evreiesc)

Page 1 of 1

Visual FoxPro

Win32 API

Open DBF with E...