Document Not Saved Error

[Submersed]

Hi All,

I have a loop which creates a new workbook (.xlsx), copies and pastes data into it and then saves as .xls, It seems to work fine for a while and then comes up with 'Document Not Saved' - Anyone got an ideas why?

ActiveWorkbook.SaveAs Filename:="D:\Data\Temp\VOB-II.xls", FileFormat:=56

and I have tried:
ActiveWorkbook.SaveAs Filename:="D:\Data\Temp\VOB-II.xls", FileFormat:=xlExcel8

Thanks in advance!

 

[Submersed]

I have created this, as this is almost what it is doing....this even runs a few times and ends up bugging out...

Private Sub test()

On Error GoTo Err_Handler

For A = 1 To 50
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Data\Temp\XPRIMNT.xls", _
        FileFormat:=xlExcel8
ActiveWorkbook.SaveAs Filename:="D:\Data\Temp\XPRIMNT.xlsx", _
        FileFormat:=51
Application.DisplayAlerts = True
Next A

Err_Handler:

MsgBox Err.Number & " " & Err.Description

End Sub

Any ideas? Just it just go to fast for itselfs and doesn't save the file correctly?

 

[Submersed]

Sorry people, missed out a very important factor...the D: is a network drive!