Macro stops after opening a file
AltaEgo,
Thanks for providing your suggestion. When I ran it guess what. The file
opened and the macro stopped. Same condition. I then set a break on the "On
Error" statement and walked through the code and no errors were detected.
However, based on another suggestion I received, which was to set a delay
just before opening the file, a delay of 2 seconds using the Timer function
seems to have done the trick. Why I'm not exactly sure, but it does. Thanks
again for your efforts.
"AltaEgo" wrote:
Try trapping you error this way:
Sub openallfiles()
Dim runpthname As String
Dim invwkbname As String
On Error GoTo openallfiles_Error
runpthname = "c:\computername\myname\subdirectory\anotherdirect ory\"
invwkbname = "Inventory.xls"
' If I set a break here and hit F5 the macro completes
Workbooks.Open Filename:=runpthname & invwkbname
Exit Sub
openallfiles_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
End Sub
--
Steve
"Steve" wrote in message
...
I'm using MS Office 2003 and Windows XP PRO
Have a scenario that is quite puzzling, after opening a
particular file (.xls) the macro just stops. However, if I set a
break on the open statement and then do nothing other than hit F5 to
continue
processing the macro completes as intended and generates the desired
results.
If I set a break on the following "If Err.Number" statement processing
never
reaches it. I use the exact same process in opening several other files
with
no problems? I modified the macro to open this particular file that has 7
worksheets all of which are empty and now it stops after it opens the
file.
Any ideas, thanks in advance for your efforts. By the way, I don't have
access to the PC that the macro is on which is why I typed the short
example
of the problem. I believe in debugging the problem I set On Error Resume
Next, but I can't be 100% sure.
Sub Main()
Call openallfiles
End Sub
Sub openallfiles
Dim runpthname As String
Dim invwkbname As String
runpthname = "c:\computername\myname\subdirectory\anotherdirect ory\"
invwkbname = "Inventory.xls"
' If I set a break here and hit F5 the macro completes
workbooks.open filename:= runpthname & invwkbname
' If I set a break here it never reaches it?????
If Err.number < 0 Then
MsgBox ("Error occurred in opening file: " & invwkbname)
End If
End Sub
|