VBA execution stops at ActiveSheet.Copy -- but only sometimes!
Hello all,
I have a subroutine like the following:
----------------
Sub AbsTest(fn As String, sec As Long)
Dim resPath As String
Dim mSheet As Worksheet, resultSheet As Worksheet
Dim mBook As Workbook
Set mSheet = ActiveSheet
AbsTestString fn, sec
' AbsTestString is where the actual work is done; it
' saves result data to a simple text file called abstest.txt.
Set mBook = Workbooks.Open("abstest.txt") ' Read the text file
mBook.ActiveSheet.Copy Befo=mSheet ' Copy to this book
mBook.Close False ' Close the text file
' without save prompt
Set resultSheet = ActiveSheet
'<Process the data in resultSheet, which was copied into this book
Application.DisplayAlerts = False
resultSheet.Delete
Application.DisplayAlerts = True
End Sub
----------------
The sub is repeated several times in a loop, with varying values for
fn and sec.
Now, this works faultlessly most of the time. But occasionally,
execution stops after abstest.txt has been opened -- i.e. it doesn't
get copied to mBook -- without any error message at all. I can see no
pattern to when it works and when it stops -- identical runs of the
outer loop may stop in different iterations, or (usually) finish as it
should.
Any ideas what may be wrong here?
--
OleM
|