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
---

_______________________________________________
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.

Reply via email to