Thread
:
VBScript Event Sink Not Firing
View Single Post
#
4
Posted to microsoft.public.excel.programming
papou[_4_]
external usenet poster
Posts: 110
VBScript Event Sink Not Firing
Hello Alex
Not a VBScript expert and probably not to be considered as an excel "guru".
Nevertheless I would suggest that you can hardly fire your sub to run a
workbook event procedure (Workbook_SheetChange in your case) from an Excel
application object, since no event procedure is present in the workbook
(remember you are creating a new workbook).
The only possible alternative I can see is to create, via your script, the
event procedure in the new workbook.
HTH
Cordially
Pascal
"Alex Turner" a écrit dans le message de news:
...
Anyone knows why this does not work - i.e. the even sink
excel_SheetChange never fires?
Dim myExcel,myWorkbook,mySheet
Set myExcel=WScript.CreateObject("Excel.Application"," excel_")
Set myWorkbook=myExcel.Workbooks.Add()
Set mySheet=myWorkbook.Sheets(1)
myExcel.Visible=TRUE
myExcel.EnableEvents=TRUE
While myExcel.Visible
WScript.Sleep(100)
Wend
Sub excel_SheetChange(ByVal Sh, ByVal Target)
WScript.Echo "Sheet Change: Sheet=" & Sh.Name & ", Range=" &
Target.Row & "," & Target.Column
End Sub
Any help welcome. If I get this to work I'll be posting about it on my
blog. I've been wanting to sink Excel events to vbscript for ages and
just don't seem to be able to manage :(
Thanks!
AJ
--
http://nerds-central.blogpot.com
Reply With Quote
papou[_4_]
View Public Profile
Find all posts by papou[_4_]