Hi Mike,
have you worked this out yet?
On my Windows 10 PC, this line:
SYS(5) + ADDBS(GETENV("HOMEPATH")) + "Documents\"
gives me the correct path, however, maybe the sys(5) is returning the
incorrect drive? Possibly the documents folder is not in the same folder
as your default drive?
This is what I use to get the Documents folder:
#DEFINE CSIDL_PERSONAL 0x0005
LOCAL lcFolderPath, lcDocumentsPath
m.lcFolderPath = space(255)
DECLARE SHORT SHGetFolderPath IN SHFolder.dll ;
INTEGER hwndOwner, INTEGER nFolder, INTEGER hToken, ;
INTEGER dwFlags, STRING @pszPath
SHGetFolderPath(0, CSIDL_PERSONAL, 0, 0, @m.lcFolderPath)
m.lcDocumentsPath = Alltrim(m.lcFolderPath)
m.lcDocumentsPath = SubStr(m.lcDocumentsPath,1, Len(m.lcDocumentsPath) - 1)
RETURN ADDBS(m.lcDocumentsPath)
Maybe another possibility is you are trying to copy more data than
Excel can handle (I can't remember the limit from that version) or maybe
there is bad data, like a date before 1/1/1900?
But then again, those last 2 issues would probably only occur when
actually trying to open the file in Excel.
FWIW I use this code for creating Excel files these days:
loExcel = NEWOBJECT("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx")
loExcel.SaveTabletoWorkbook(m.lcTable, m.lcXLSFile, .T., .T.)
I believe the URL for this utility is:
https://github.com/ggreen86/XLSX-Workbook-Class
Doug Hennig has a paper here that may be helpful if you want to consider
alternatives:
https://doughennig.com/papers/Pub/201607dhen.pdf
Frank.
Frank Cazabon
On 06/04/2021 1:56 pm, MB Software Solutions, LLC wrote:
I get this error when executing a COPY TO .... TYPE XL5 line in a
program designed over a decade ago: /OLE error code 0x80030003:
Unknown COM status code. /
Interesting. I remoted into the guy's computer. He said it's a fairly
new laptop (3 months old?) and it's version is 2102 (Build
13801.20360). I fired up vRunFox.exe and did a simple xx =
CREATEOBJECT("Excel.Application") and it worked fine. What's strange
to me is that the line throwing that Error 1426 is not an Excel
automation line, but the COPY TO line. I believe the problem is the
lcFile variable. When this code was written, Vista was the latest
operating system. You can see how I look at the OS() to select the
proper area for My Documents.
*** mjb 03/03/2010 - changed for Vista and beyond
IF VAL(SUBSTR(OS(),9,1)) >= 6 THEN && Vista doesn't use My
lcDir = SYS(5) + ADDBS(GETENV("HOMEPATH")) + "Documents\"
ELSE && XP and below use My
lcDir = SYS(5) + ADDBS(GETENV("HOMEPATH")) + "My Documents\"
ENDIF
lcFile = ADDBS(lcDir) + "Inventory_" + DTOC(DATE(),1)
*** mjb 06/26/2017 - added nbrdft, ntotbf
IF this.lShowZeroQty THEN
COPY TO (lcFile) FIELDS ccompany, cpalletsize,
cdescription, nqtyonhand, nprice, ntotvalue, nbrdft, ntotbf FOR
this.CustomerSelected(icustid) TYPE XL5
ELSE
COPY TO (lcFile) FIELDS ccompany, cpalletsize,
cdescription, nqtyonhand, nprice, ntotvalue, nbrdft, ntotbf FOR
this.CustomerSelected(icustid) AND nQtyOnHand > 0 TYPE XL5
ENDIF
So in short, I think the fact that it's Error 1426 is misleading...I
doubt it's an Excel problem at all but in fact a problem with that
lcFile actual path derived.
I think somebody recently mentioned a Doug Hennig bit of code to look
at the user's ACTUAL path to his documents area, iirc? I'll dig for
that later after an appt but wanted to throw this out there in the
meanwhile in case others have the "I had that happen to me and this is
how I fixed it!" kind of memory recall. ;-)
tia,
--Mike
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: https://leafe.com/archives
This message:
https://leafe.com/archives/byMID/466d4767-bccb-ade1-0d65-32e5f29fe...@gmail.com
** 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.
