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" wrote in messag
..
hi
i got a VBA prog. to open excel. but, when the prog. open exce
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 continues
the oXL.DisplayAlerts = False does supress the error message IF i press F
in 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
does anyone has any idea on that
thank you
will la
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 he bProtected = ProtectedCheck(owb
.