application displayalert not working?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

hi

i got a VBA prog. to open excel. but, when the prog. open excel spreadsheet, there is an error. "Can't open pivot table soubrce file..." so, i tried to supress the error message via the code. but, VB stops at the Open() statement, and wait for me to respond to the message before it continues. and, i really want VB ignores the error, and continues

the oXL.DisplayAlerts = False does supress the error message IF i press F8 in VB editor to step through the code. but, if i set a breakpoint and hit F5 to jump over 5 lines of code. then, the error message comes up again

does anyone has any idea on that

thank you

will lam

Set oXL = New Excel.Applicatio

'wla
oXL.DisplayAlerts = Fals

TempFileString = sFileStrin
sTempTicker = Left(sFileString, Len(sFileString) - 4
On Error GoTo bai


TempFileString = sfilePath & "\" & TempFileStrin
Set owb = oXL.Workbooks.Open(FileName:=TempFileString, UpdateLinks:=False, ReadOnly:=False, ignoreReadOnlyRecommended:=True


Set oSht = owb.Worksheets.Item("Cover Page"

sAnalystEmail = Trim(oSht.Cells(9, 4).Value
If Not InStr(sAnalystEmail, "@") > 0 The
PrepExcelFile = CStr(GetAnalystIDFromTicker(sTempTicker)
If PrepExcelFile = "" Then GoTo NoAnalys
Els
PrepExcelFile = GetAnalystIDFromDB(sAnalystEmail
If PrepExcelFile = "" Then GoTo NoAnalys
End I

For Each oWs In owb.Worksheet
oWs.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=Tru
Nex

For Each oChart In owb.Chart
oChart.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=Tru
Nex


-> breakpoint here: bProtected = ProtectedCheck(owb)


.. .
 
What version of Excel. I believe this didn't work in xl97.

Also, where are you running this code. If it is in Excel, you don't need to
start a new instance of excel to open another workbook.

--
Regards,
Tom Ogilvy


Will Lam said:
hi,

i got a VBA prog. to open excel. but, when the prog. open excel
Click to expand...
spreadsheet, there is an error. "Can't open pivot table soubrce file..." so,
i tried to supress the error message via the code. but, VB stops at the
Open() statement, and wait for me to respond to the message before it
continues. and, i really want VB ignores the error, and continues.
the oXL.DisplayAlerts = False does supress the error message IF i press F8
Click to expand...
in VB editor to step through the code. but, if i set a breakpoint and hit F5
to jump over 5 lines of code. then, the error message comes up again.
does anyone has any idea on that?

thank you,

will lam

Set oXL = New Excel.Application

'wlam
oXL.DisplayAlerts = False

TempFileString = sFileString
sTempTicker = Left(sFileString, Len(sFileString) - 4)
On Error GoTo bail


TempFileString = sfilePath & "\" & TempFileString
Set owb = oXL.Workbooks.Open(FileName:=TempFileString,
Click to expand...
UpdateLinks:=False, ReadOnly:=False, ignoreReadOnlyRecommended:=True)
Set oSht = owb.Worksheets.Item("Cover Page")

sAnalystEmail = Trim(oSht.Cells(9, 4).Value)
If Not InStr(sAnalystEmail, "@") > 0 Then
PrepExcelFile = CStr(GetAnalystIDFromTicker(sTempTicker))
If PrepExcelFile = "" Then GoTo NoAnalyst
Else
PrepExcelFile = GetAnalystIDFromDB(sAnalystEmail)
If PrepExcelFile = "" Then GoTo NoAnalyst
End If

For Each oWs In owb.Worksheets
oWs.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next

For Each oChart In owb.Charts
oChart.Protect Password:="", DrawingObjects:=True,
Click to expand...
Contents:=True, Scenarios:=True
 
Hi Tom

i'm using excel 2002. i run it from VB6. thanks. -w

----- Tom Ogilvy wrote: ----

What version of Excel. I believe this didn't work in xl97

Also, where are you running this code. If it is in Excel, you don't need t
start a new instance of excel to open another workbook

--
Regards
Tom Ogilv


Will Lam said:
hi
Click to expand...
spreadsheet, there is an error. "Can't open pivot table soubrce file..." so
i tried to supress the error message via the code. but, VB stops at th
Open() statement, and wait for me to respond to the message before i
continues. and, i really want VB ignores the error, and continuesin VB editor to step through the code. but, if i set a breakpoint and hit F
to jump over 5 lines of code. then, the error message comes up again
sTempTicker = Left(sFileString, Len(sFileString) - 4
On Error GoTo bai
Set owb = oXL.Workbooks.Open(FileName:=TempFileString
Click to expand...
UpdateLinks:=False, ReadOnly:=False, ignoreReadOnlyRecommended:=True
 
Back
Top