×
יריב החביב
Hello,
We save file after rearange it with macro.
Now, we want to cahnge the folder to save in to a web folder.
the macro run ok, but the file is not saved in the web folder.
here is the actual portion of macro,
please tell me where i wrong:
Kill ("desktop:\My Network Places\Entire Network\Microsoft Windows
Network\Tasmc1\focus\ Human Resources\sesyotmalam.xls")
ActiveWorkbook.SaveAs Filename:="desktop:\My Network Places\ Entire
Network\Microsoft Windows Network\Tasmc1\focus\ Human
Resourcessesyotmalam.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ErrorHandler:
If Err.Number = 53 Then
Resume Next
Else
Dim x As VbMsgBoxResult
x = MsgBox("Unhandled error#" & Err.Number & " in <sesyotmalam>",
vbOKOnly, "Error")
End If
End Sub
We save file after rearange it with macro.
Now, we want to cahnge the folder to save in to a web folder.
the macro run ok, but the file is not saved in the web folder.
here is the actual portion of macro,
please tell me where i wrong:
Kill ("desktop:\My Network Places\Entire Network\Microsoft Windows
Network\Tasmc1\focus\ Human Resources\sesyotmalam.xls")
ActiveWorkbook.SaveAs Filename:="desktop:\My Network Places\ Entire
Network\Microsoft Windows Network\Tasmc1\focus\ Human
Resourcessesyotmalam.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ErrorHandler:
If Err.Number = 53 Then
Resume Next
Else
Dim x As VbMsgBoxResult
x = MsgBox("Unhandled error#" & Err.Number & " in <sesyotmalam>",
vbOKOnly, "Error")
End If
End Sub