>The code I found on the thread
>
>_VFP.DataToClip(,,3)
> oExcel = Create("Excel.Application")
> oExcel.Workbooks.Add()
> oRange = oExcel.Range("A1",Chr(65+FCount()-1)+Alltrim(Str(RecCount())))
> oRange.PasteSpecial()
> oExcel.Visible = .T.
I'm the one Christof came up with the code for :) I'm not sure about your problem, but this code would not work on some machines here, including my own. I had to use
oExcel = GetObject("Excel.Sheet")
You might try that...needs a couple other code changes from this change. Also note that you need one more row to account for the headers where the RecCount() is, RecCount()+1...after a few changes, works perfectly, and there's no hassle with XL5 coversion, this method goes directly to Excel97...
The Anonymous Bureaucrat,
and frankly, quite content not to be
a member of either major US political party.