Hi All,

I am facing some size related problem with excel
workbook....

I have a workbook at specific location. I am opening
that file and using saveas option to save it in a different folder. but
the size of the files almost doubles its size when copied to a
different location..

code:
strTempPath = App.Path & "\" & "scip.xls" ' to open where the
application is located.
Set xlAppS = New Excel.Application
Set wbS = xlAppS.Workbooks.Open(strTempPath) ' 'C:\swamy\scip.xls
strName = intGatorNo & "_Report" & ".xls"
strOutFile = strOutFol & "\" & strName 'C:\swamy\1122_Report.xls
On Error GoTo soln
xlAppS.ActiveWorkbook.SaveAs (strOutFile)
soln:
xlAppS.ActiveWorkbook.Close

Thanks in advance
Swamy