Rafael Copquin wrote:
> Smart solution!
> Could you post an example, especially of the call to the shellexecute?
Here's a snippet with that code:
SELECT curOutput
DO CASE
CASE this.nOutputType = 2 && only students with
emails
COPY TO (lcFile) FIELDS &lcFields FOR
lSelected AND NOT
EMPTY(StuEmail) TYPE XL5
OTHERWISE && CASE this.nOutputType = 1 && All
(default)
COPY TO (lcFile) FIELDS &lcFields FOR
lSelected TYPE XL5
ENDCASE
MESSAGEBOX(FULLPATH(lcFile) + " created with " +
ALLTRIM(STR(_tally))
+ " rows.",64,"Excel file created.")
IF this.lOpenExcel THEN && launch Excel file via
shellexecute
WAIT WINDOW NOWAIT "Launching " +
FULLPATH(lcFile)
LOCAL loShell
loShell = NEWOBJECT("_ShellExecute",
"_environ.vcx")
loShell.ShellExecute(FULLPATH(lcFile))
RELEASE loShell
ENDIF
--
Mike Babcock, MCP
MB Software Solutions, LLC
President, Chief Software Architect
http://mbsoftwaresolutions.com
http://fabmate.com
http://twitter.com/mbabcock16
_______________________________________________
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.
