Page 3 of 4
Re: How to Export to Excel
Posted: Thu Dec 11, 2008 6:55 am
by mol
I need to export line by line, because my program must interactively rewrite some cells in worksheet, if data in .dbf was changed - for compatibility with actual system of work in company. Time doesn't matter now - export to excel will be done once a day or week, about 200 rows for day.
But your solution about export to excel is excellent
Thanks very much for your engagement in my problem.
Best regards, Marek
Re: How to Export to Excel
Posted: Mon Jan 26, 2009 11:49 am
by mol
I tried to use Alex Gustov' way to write to Excel, but in HMG function CopyToClipboard does not exist....
How to resolve this problem?
Re: How to Export to Excel
Posted: Mon Jan 26, 2009 12:16 pm
by mol
I found and implement CopyToClipboard
function CopyToClipboard
param cTekst
#define HB_GTI_CLIPBOARDDATA 15
hb_gtInfo( HB_GTI_CLIPBOARDDATA, cTekst )
return
Re: How to Export to Excel
Posted: Mon Apr 27, 2009 9:06 am
by mol
It looks that I'm writing to myself....
But maybe someone will read this post and will have an idea, how to switch off automatic recomputing excel sheet by a procedure.
this recomputing terribly slows down the process off exporting...
Best regards, Marek
Re: How to Export to Excel
Posted: Mon Apr 27, 2009 9:49 am
by mol
I found!!!
I put it of forum, maybe it will be useful for someone...
private xlCalcStatus
// xlCalcStatus - for restoring status after export to excel
#define xlManual -4135
xlCalcStatus := oExcel:Calculation
oExcel:Calculation := xlManual
// ^^^^^^^
// put your export code here
// and now restore settings
oExcel:Calulation := xlCalcStatus
// and I think, it's good idea for recalculating sheet after export
oExcel:Calculate()
Best regards, Marek
Re: How to Export to Excel
Posted: Mon Apr 27, 2009 10:05 am
by sudip
Hi Marek,
Can you share us some code for this so that I can test
Regards.
Sudip
Re: How to Export to Excel
Posted: Mon Apr 27, 2009 11:27 am
by mol
I'm working with huge project and it's hard to put the whole code.
The example will be similar to yours program to write dbf to excel.
Only at the beginning you must put lines with setting
oEcel:Calculation := xlManual
and at the end of program restore setting of calculation, ant recalcutate sheet
oExcel:Calulation := xlCalcStatus
oExcel:Calculate()
regards, Marek
Re: How to Export to Excel
Posted: Tue Apr 28, 2009 5:10 am
by sudip
Hello Marek,
I found some following error during running my changed software :-
- ExcelError.jpg (48.97 KiB) Viewed 10130 times
I found that it is due to the statement:-
My changed code is given here
With best regards.
Sudip
Re: How to Export to Excel
Posted: Tue Apr 28, 2009 5:30 am
by mol
Hello Sudip!
Have you seen that you (and me) wrote "CALULATION" not "CALCULATION" !!!
This is the reason of error.
I found it later.
It was casued due haste...
Marek
Re: How to Export to Excel
Posted: Tue Apr 28, 2009 6:22 am
by sudip
Hi Marek,
Thanks it's now OK
And exporting large table becomes very quick
Thank you very much
And later I must be careful before coping ...
Thank you again very much for sharing this code.
Regards.
Sudip