Hi Cetin

Thanks.

>oExcel.DisplayAlerts = .f.
>oExcel.ActiveWorkbook.SaveAs('c:\mypath\NewXLSName.xls') && If you wnat to rename XLS
>
>oExcel.Activeworkbook.ActiveSheet.Name = 'NewName' && If you want to rename sheet
>or something like:
>oExcel.Workbooks(nIndex).Sheets('OldName').Name = 'NewName' && If you want to rename sheet
>Cetin
>
>>Hi Cetin
>>
>>Thanks. It´s working.
>>
>>But now I have another "small" problem
>>
>>After using Bookworks.add
>>
>>How do I rename the new Excel docunent and how do I save it? I have tryied Bookworks.name and Bookworks.save but both returns errors.
>>
>>Hope you can help me with this.
>>
>>
>>>>HI
>>>>
>>>>I have a blank Excel sheet and I want to copy an existing Excel file into this sheet.
>>>>
>>>>How can it be done ??
>>>
>>>

lcXLSFrom = "C:\myPath\mySource.xls"
>>>lcFromSheet = 'MySourceSheet'
>>>LOCAL loExcel,loRange
>>>loExcel = CreateObject("Excel.Application")
>>>with loExcel
>>> .Workbooks.Open(lcXLSFrom)
>>> loRange = .ActiveWorkbook.Sheets(lcFromSheet).UsedRange
>>> .Workbooks.Add
>>> loRange.Copy(.ActiveWorkbook.ActiveSheet.Range('A1'))
>>> .WorkBooks(1).Close
>>> .Visible = .T.
>>>ENDWITH

Cetin