>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,
Winn Pauley