My problem seems to be that Excels saving process is being interrupted. From what i understand is that when i save a workbook, excel first saves the active workbook as some random name. Then Excel deletes the original file and renames the newly created file with the name of the original. My problem is that after excel deletes the original file and it never renames the new file. This is becoming very irritating because i have vba code that relies on the workbook's name.
I think part of the problem is that we have 11 people trying to access this particular workbook constantly throughout the day. Also this particular workbook is not shared and is opened, changed, saved, and closed using vba code. The workbook is not open for longer then a few seconds and the user never knows its open since it is hidden. I have a code in place so that if two people access the workbook at the same time one person will get a busy message (code below). 90% of the time everything runs fine.
______
IsOpen = IsNetworkFileOpen("C:\Documents and Settings\user\Desktop\Traveler List.xls")
If IsOpen = False Then 'if no one else is using this workbook then
Something happens
Else
If Not FileThere("C:\Documents and Settings\user\Desktop\Traveler List.xls") Then
MsgBox "Workbook is Down. Please replace workbook." 'This is my problem
Else
MsgBox "Workbook is Busy. Please try again in a moment."
End If
Exit Sub
End If
_____
I cant figure out what could be interrupted the saving process. if anyone could help me pin point the problem, suggest some better vba code, or even let me know if this is just some excel limitation i would greatly appreciate it!
I think part of the problem is that we have 11 people trying to access this particular workbook constantly throughout the day. Also this particular workbook is not shared and is opened, changed, saved, and closed using vba code. The workbook is not open for longer then a few seconds and the user never knows its open since it is hidden. I have a code in place so that if two people access the workbook at the same time one person will get a busy message (code below). 90% of the time everything runs fine.
______
IsOpen = IsNetworkFileOpen("C:\Documents and Settings\user\Desktop\Traveler List.xls")
If IsOpen = False Then 'if no one else is using this workbook then
Something happens
Else
If Not FileThere("C:\Documents and Settings\user\Desktop\Traveler List.xls") Then
MsgBox "Workbook is Down. Please replace workbook." 'This is my problem
Else
MsgBox "Workbook is Busy. Please try again in a moment."
End If
Exit Sub
End If
_____
I cant figure out what could be interrupted the saving process. if anyone could help me pin point the problem, suggest some better vba code, or even let me know if this is just some excel limitation i would greatly appreciate it!
