Error using SaveAs (object disconnected from clients!) then XL Cra

[Guest]

Hi,

I have a macro workbook that opens two report templates, copies data into
them, creates subtotals and formatting, then saves the two reports using
SaveAs...

Unfortunately every time the code reaches the line:
Workbooks("Rep_Template1").SaveAs sRepName

or

Workbooks("IntRep_Template1").SaveAs sRepName

Surely these are correct references - they've worked fine for 5 years!

I get an error 'Automation Error The object invoked has disconnected from
its clients'

Excel then crashes with a memory leak or something...

This tool has been running finr for 5 years under Excel 97 and Excel 2000
and now I am getting this error.

Has anyone seen this, and how can I fix it...I've tried copying all the
sheets and VBA objects into a new workbook but that has not worked either...

I'd be grateful for any help

Philip

 

[Guest]

I don't know about your problem, but i'll give you the code that works for me:

'open a new book - you'd open your template
Set newbook = Workbooks.Add

'perform whatever changes are needed


'then I generate a file name in an array using test number and date info
fnamearray = Array(testno, Format(Now, "yy-mm-dd hh.mm.ss"),
"xls")
fname = Join(fnamearray, ".")

'then save it
newbook.SaveAs Filename:=fname

This works. How it relates to your problem I don't know . Good luck!