Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming,microsoft.public.vb.winapi,microsoft.public.vb.general.discussion
|
|||
|
|||
![]()
Hello,
I've asked that question before but that thread appears dead now. My applications is developed in vbasic5. I need for it to get Windows notification when user clicks on the cell and retrieve the cell value. I did exactly as Rob van Gelder advised me in the another thread. 1. I installed Excel and load the reference to Excel Object Library in my vbasic5 code. 2. I created Class1 module and put the following code in there. --------------- Public WithEvents app As Excel.Application Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "Selection Changed" End Sub -------------------- 3. I put the another code in Form_Load of my app: -------------------- Dim cls As New Class1, wkb As Excel.Workbook Set cls.app = New Excel.Application Set wkb = cls.app.Workbooks.Add wkb.Worksheets(1).Cells(10, 10).Select MsgBox ActiveCell.Value wkb.Close cls.app.Quit Set cls.app = Nothing Set cls = Nothing ------------------- When I start my app I have message: "Selection changed" (although I did nothing to my Excel sheet) followed by the empty message box (MsgBox ActiveCell.Value). When I select another cell in Excel there is not any notification my app is aware of. It looks like ActiveCell.Value is not able to retrieve the cell value What I need is: 1. Get notified the user clicked on Excel cell 2. Retrieve the value of that cell Please help, Jack "Rob van Gelder" wrote in message ... Jack, You'll probably need a reference to Excel Object Library. To answer your other e-mail In a class module (in this example called Class1) Public WithEvents app As Excel.Application Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "Selection Changed" End Sub Then somewhere in your code: Sub test() Dim cls As New Class1, wkb As Excel.Workbook Set cls.app = New Excel.Application Set wkb = cls.app.Workbooks.Add wkb.Worksheets(1).Cells(10, 10).Select wkb.Close cls.app.Quit Set cls.app = Nothing Set cls = Nothing End Sub -- Rob van Gelder - http://www.vangelder.co.nz/excel "Jack" <replyto@newsgroup wrote in message ... Thank you, but I need more help. I tried your line in my vbasic5 but it is complaining about ActiveCell : "Variable not defined" I guess I need to load some reference or component. What is it? Jack "Rob van Gelder" wrote in message ... Jack, MsgBox ActiveCell.Value -- Rob van Gelder - http://www.vangelder.co.nz/excel "Jack" <replyto@newsgroup wrote in message ... Hello, I am not user of Excel and I am not familiar with it at all. I am programming in visual basic 5 and I've never used VBA. For my vbasic5 code I need to retrieve the content of the Excel cell user has clicked on. Please advise how can I do that. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Read/write excel and word 2007 documents from another application | Excel Discussion (Misc queries) | |||
Excel cannot auto start external application | Excel Discussion (Misc queries) | |||
How to Determine if Application Window Still Active | Excel Discussion (Misc queries) | |||
VBA: Make Excel the active application | Excel Discussion (Misc queries) | |||
Open an external application | Excel Discussion (Misc queries) |