CREATE cursor curTest (A C(21), B C(20), C C(18), D C(16), E C(15), F C(16), G C(40), H C(40), ;
I C(20), J C(10), K C(254), L C(26), M C(12))
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
INSERT into curTest VALUES ('00001','BBBBB','CCCCC','DDDDD','EEEEE','FFFFF','GGGGG','HHHHH','IIIII','JJJJJ','KKKKK','LLLLL','MMMMM')
LOCATE
lcTextMerge=('d:\temp\'+'temp.html') &&Change 'd:\temp\' to a valid directory
SET CONSOLE OFF
SET TEXTMERGE ON TO [&lcTextMerge] NOSHOW
DO xlsset
scan WHILE NOT eof()
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(CHR(160)+a))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(b))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(c))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(d))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(e))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(f))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(g))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(h))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(i))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(j))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(k))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(l))>><\td>
\<td class=xlChrblack>
\\<<RTRIM(TRANSFORM(m))>><\td>
\</tr>
ENDSCAN
\</table></body></html>
SET TEXTMERGE OFF
SET TEXTMERGE TO
*SET CONSOLE ON
oExcel = Createobject([Excel.Application])
With oExcel
.referencestyle = 1
.WorkBooks.Open(lcTextMerge)
.ActiveWindow.DisplayGridlines = .t.
*.visible=.t.
ENDWITH
oSheet = oExcel.ActiveSheet
osheet.saveas('d:\temp\temp.xlsb',50) && Excel 2007 and greater - for earlier versions use temp.xls and 43
oExcel.visible = .t.
PROCEDURE xlsset
\<HTML>
\<HEAD>
\<META http-EQUIV='Content-Type' CONTENT='text/html; charset=windows-1252'>
\<META NAME='Generator' CONTENT='VFP'>
\<TITLE>a</TITLE>
\</HEAD>
\<BODY>
\<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=3 WIDTH=264>
\<TR><TD WIDTH='100%' VALIGN='TOP'>
\ <style>
\<!--table
\.xlChrblack
\ {mso-style-parent:style0;
\ font-family:Arial, sans-serif;
\ mso-font-charset:0;
\ font-size:8.0pt;
\ color:black;
\ text-align:left;
\ white-space:normal;}
\\<BODY><TABLE>
\<tr>