>* Create a table with LNF fieldnames >* in a directory with an LNF path >Local lcLNFDir >lcLNFDir = "c:\An LNF path" >Md (m.lcLNFDir) >Create Database ( Addbs(m.lcLNFDir)+"myDatabase" ) >Select cust_id As CustomerID, ; > company As "ThisIsAnLNF_Company_Name_of_customer", ; > contact As "ThisIsAnLNF_Contact_FirstName_and_LastName_of_customer", ; > city, Region, country ; > from (_samples+'Data\Customer') ; > into Table ( Addbs(m.lcLNFDir)+"myLNFTable" ) ; > database ( Addbs(m.lcLNFDir)+"myDatabase" ) >Close Databases All > >* Send data to excel >* PS: This is one of the many ways >VFP2Excel(Addbs(m.lcLNFDir)+"myDatabase.dbc",; > 'select * from myLNFTable',; > "ThisIsVFPData") > >Erase ( Addbs(m.lcLNFDir)+"*.*" ) >Rd (m.lcLNFDir) > >Function VFP2Excel > Lparameters tcDataSource, tcSQL, tcSheetName > Local loConn As AdoDB.Connection, ; > loRS As AdoDB.Recordset,; > lcTempRs As String, ; > lcTemp As String, ; > oExcel As Excel.Application > > lcTempRs = Sys(5)+Curdir()+Sys(2015)+'.rst' > loConn = Createobject("Adodb.connection") > loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource > loConn.Open() > loRS = loConn.Execute(m.tcSQL) > loRS.Save(m.lcTempRs) > loRS.Close > loConn.Close > loRS.Open(m.lcTempRs) > > oExcel = Createobject("Excel.Application") > With oExcel > .WorkBooks.Add > .Visible = .T. > With .ActiveWorkBook.ActiveSheet > .Name = m.tcSheetName > .QueryTables.Add( loRS, .Range("A1")).Refresh() > Endwith > Endwith > loRS.Close > Erase (m.lcTempRs) >Cetin