Path/File access error (Error 75) using Name Statement
JNW:
I did not completly answer the last part of your reply
the code ends after renameing the folder with unloading the user form and
ending the maco(s)
--
Fuzzy logix
"JNW" wrote:
This can occur if you are renaming the folder that contains the open
workbook. This error can also occur while attempting to save a file that
would replace an existing read-only file. Without knowing where things are
located it's hard to say.
Where does the code stop?
"blayne" wrote:
I wrote the following code to rename a folder based on information entered
into an excel file contained in the folder
' ROUTINE TO MODIFY EXISTING INFORMATION
If Workbooks("FILE MANAGEMENT
SYSTEM.xls").Sheets("ONE").Range("CHANGE_EXISTING" ).Value = "YES" Then
Set InformationRegister =
Application.Workbooks("INFORMATION.xls").Sheets("I nformation register")
Call WritetoInfoRegister
Application.Run ".xls'!TenderInfoReport"
Call OpenRegister ' open register file
Call RewriteToRegister ' write new information to file
Call CLOSERegister ' close register file
Application.Workbooks("INFORMATION.xls").Save
Reset
Call RenameFolder
End If
End If
End If
The RenameFolder reads
Sub RenameFolder()
Dim OldName As String
Dim NewName As String
Dim dummyvar
Call CalcPath
' define the folder names
OldName = path & " " & Workbooks("FILE MANAGEMENT
SYSTEM.xls").Sheets("START"). _
Range("ProjShortName") & " " & Workbooks("FILE MANAGEMENT
SYSTEM.xls").Sheets("START"). _
Range("status2")
NewName = path & " " & Workbooks("FILE MANAGEMENT
SYSTEM.xls").Sheets("START"). _
Range("ProjShortName") & " " & Workbooks("FILE MANAGEMENT
SYSTEM.xls").Sheets("START"). _
Range("bidstatus")
dummyvar = "C:\File Setup"
Name OldName As NewName
End Sub
This is a very small portion but is the revelant section of the the code
I have tried the workaround found for excel 2000 to reset the pointer
and it has not worked
is there anyone who may have any ideas
--
Fuzzy logix
--
Fuzzy logix
|