N
noob
Guest
How do you export from progress to excel with merged cell in the middle? when i try to export, it unmerged itself. example expected output:
merged cell with value 1 (3 cells) other value 1 other value 1
merged cell with value 2 (3 cells) other value 2 other value 2
merged cell with value 3 (3 cells) other value 3 other value 3
what my output is:
unmerged cell value 1 other value 1 other value 1
unmerged cell value 2 other value 2 other value 2
unmerged cell value 3 other value 3 other value 3
my export to excel code:
DEFINE VARIABLE h-excel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE h-sheet AS COM-HANDLE.
DEFINE VAR w-invname AS CHAR INITIAL "insert excel fill here".
CREATE "Excel.Application" h-excel.
h-sheet = h-excel:Workbooks:OPEN (w-invname,,FALSE,,,,,,,,,,FALSE) NO-ERROR.
h-excel:visible = true.
h-excel:Cells:Select.
/*h-excel:Selection:ClearContents.*/
h-excel:Run("loading"). /* Run the Macro, up to 31 optional */
/* parameters can be passed */
/*h-excel:Quit().*/ /* Tell Excel to quit */
/*h-excel:Range("A" + STRING(5)):VALUE = "Date Covered " + STRING(fifr) + " - " + STRING(fito).*/
h-excel:Range("A" + STRING(6)):VALUE = "As of " + cbMon + STRING(fiyear).
h-excel:Range("A12"):Select.
/*h-excel:Workbooks:SaveAs("c:\hckiv9\crd\forms\KMCDAT1.xls",43,,,,,).*/
RELEASE OBJECT h-sheet.
RELEASE OBJECT h-excel.
END PROCEDURE.
Continue reading...
merged cell with value 1 (3 cells) other value 1 other value 1
merged cell with value 2 (3 cells) other value 2 other value 2
merged cell with value 3 (3 cells) other value 3 other value 3
what my output is:
unmerged cell value 1 other value 1 other value 1
unmerged cell value 2 other value 2 other value 2
unmerged cell value 3 other value 3 other value 3
my export to excel code:
DEFINE VARIABLE h-excel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE h-sheet AS COM-HANDLE.
DEFINE VAR w-invname AS CHAR INITIAL "insert excel fill here".
CREATE "Excel.Application" h-excel.
h-sheet = h-excel:Workbooks:OPEN (w-invname,,FALSE,,,,,,,,,,FALSE) NO-ERROR.
h-excel:visible = true.
h-excel:Cells:Select.
/*h-excel:Selection:ClearContents.*/
h-excel:Run("loading"). /* Run the Macro, up to 31 optional */
/* parameters can be passed */
/*h-excel:Quit().*/ /* Tell Excel to quit */
/*h-excel:Range("A" + STRING(5)):VALUE = "Date Covered " + STRING(fifr) + " - " + STRING(fito).*/
h-excel:Range("A" + STRING(6)):VALUE = "As of " + cbMon + STRING(fiyear).
h-excel:Range("A12"):Select.
/*h-excel:Workbooks:SaveAs("c:\hckiv9\crd\forms\KMCDAT1.xls",43,,,,,).*/
RELEASE OBJECT h-sheet.
RELEASE OBJECT h-excel.
END PROCEDURE.
Continue reading...