Automation Excel SaveAs Error

[MJPPaba]

Please help, I am opening Excel from Access and need to resave the file with another name. Problem is not seeming to work at the moment.

Please advise...

Pabs


Public Sub mdl_OpenSS(myDir As String, myFile As String, myProcessID As Integer)
Dim myCurDir As String
On Error GoTo myError

'need to change the name of the file to pollerworking.xls
Set myXL = GetObject(myDir & myFile)

With myXL

.Application.Visible = True

.Windows(myFile).Visible = True

.Workbooks(myFile).SaveAs Filename:= _
"C:\working.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[Remou]

If "C:\working.xls" is the name you are using, you may not have permissions to save on the C root.

http://lessthandot.com