Tina, the following link is all I could find: http://kbalertz.com/949529/Importing-Microsoft-Excel-workbook-using-Visual-FoxPro.aspx
Rick Q [email protected] On Tue, Feb 1, 2011 at 5:15 PM, Tina Currie <[email protected]> wrote: > Hi all, > > > > I have an app out there with a client that I never hear from. Good sign > ... > it's working a treat. Heard from them just recently however because they > want to upgrade to Excel 07 or 10. The start of the app is an "Import your > Data" feature and one of the options is to import XLS files. They now want > to be able to import XLSX files. > > > > My code currently looks like: > > > > * - Declare Variables > > PUBLIC GcCDX, GcDBF, GcDBFAlias > > LOCAL LcXLSName, LcXLSFile > > * - Clean work area > > CLOS DATA ALL > > * - Ask which XLS File > > LcXLSName = GETFILE("Excel Files (*.xls): XLS") > > If Empty(LcXLSName) > > *- Nothing selected > > Messagebox("No file selected so nothing to do.",GcMsgTitle) > > Return .F. > > EndIf > > LcXLSFile = > SUBSTR(LcXLSName,(RAT('\',LcXLSName)+1),(RAT('.XLS',LcXLSName))) > > GcWorkDir = SUBSTR(LcXLSName,1,AT(LcXLSFile,LcXLSName)-1) > > SET DEFA TO (GcWorkDir) > > * - Put XLS data into new table > > WAIT WIND "Importing data from XLS file" NOWAIT > > SET SAFETY OFF > > IMPORT FROM (LcXLSName) TYPE XL8 > > SET SAFETY ON > > GcDBF = DBF() > > GcDBFAlias = ALIAS(1) > > GcWorkDir = SUBSTR(GcDBF,1,AT(('\'+GcDBFAlias),GcDBF)-1) > > > > > > What's the easiest and quickest way to modify this so that we can import > XLSX? Not interested in doing a Save As on the file in Excel to take it > back to 2003 version either. Just want to take XLSX and import directly > into Fox. > > > > Also - main purpose of app is to import data - do some stuff to it using > automated features I've created for them - and then export it out. They > need to export it out as XLSX also. > > > > Appreciate your feedback, > > > > Tina > > www.datahouse.com.au > > > > > > --- StripMime Report -- processed MIME parts --- > multipart/alternative > text/plain (text body -- kept) > text/html > --- > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
