>I don't quite get it...
>
>Here is my code which works fine except I only get the structure. Where would I put the code you stated. I tried it and got member worksheet does not evaluate to an object....
>
>
oleapp=CREATEOBJECT("Excel.Application")

#define xlUp -4162

OleApp.DisplayAlerts=.f.
filename1="environmentalsummary.xls"
oWorkBook=oleapp.workbooks.Open(filename1)
*oWorkBook.application.visible = .T.
***Manually Save ***
curdir='\dddata\tables\'

oWorkBook.Worksheets(1).Range("A1:T1").Select

cur_colm = oleApp.ActiveCell.Column
lastcell = oleApp.Cells(65536, cur_colm).End(xlUp).Address

oWorkBook.SaveAs(sys(5)+curdir+'upenviro3.dbf', 8)

HTH,