Hi All, I need help with an Excel Export. I'm trying to export a column as text. I need FedEx shipping numbers in the column which have a leading "0" that excel keeps deleting when opened. I used to export as a .dat file, format that column as text, and then save as an excel worksheet. I want to have it automatically format as text so that I can eventually have our website grab from that file at a specific time with no user input.
Here's the code. Everything runs off fine except that I want that column formatted as text. I changed the runoffs to "INFORMATION#" as they are long lines of IF commands to run off my fields. The one in question is in bold:
DEF VAR vchExcel AS COM-HANDLE NO-UNDO.DEF VAR vchWorkBook AS COM-HANDLE NO-UNDO.
DEF VAR vchWorkSheet AS COM-HANDLE NO-UNDO.
DEF VAR vRow AS INT NO-UNDO.
CREATE "Excel.Application":U vchExcel.
ASSIGN
vchExcel:VISIBLE = false
vchWorkBook = vchExcel:WorkBooks:ADD()
vchWorkSheet = vchExcel:Sheets:ITEM(1).
FOR EACH tracknum WHERE ord-num BEGINS "W" AND s-date = TODAY - 1 AND track-ref > "0" NO-LOCK:
ASSIGN
vRow = vRow + 1
vchWorkSheet:Range("A":U + STRING(vRow)):VALUE = INFORMATION1
vchWorkSheet:Range("B":U + STRING(vRow)):VALUE = INFORMATION2
vchWorkSheet:Range("C":U + STRING(vRow)):VALUE = INFORMATION3
vchWorkSheet:Range("D":U + STRING(vRow)):VALUE = IF gcustom.tracknum.track-ref > "0" THEN gcustom.tracknum.track-ref ELSE ""
vchWorkSheet:Range("E":U + STRING(vRow)):VALUE = INFORMATION5.
END.
vchWorkBook:SaveAs("\\nas\company\IT\WebTracking\TODAY.xls",,,,,,,).
/* RELEASE OBJECT vchWorkSheet. */
/* RELEASE OBJECT vchWorkBook. */
/* RELEASE OBJECT vchExcel. */
vchWorkBook:CLOSE.
RELEASE OBJECT vchWorkSheet.
RELEASE OBJECT vchWorkBook.
vchExcel:QUIT.
RELEASE OBJECT vchExcel.
thank you for the help in advance.