How to retrieve content of the Excel cell?

[Jack]

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.

 

[Rob van Gelder]

Jack,

MsgBox ActiveCell.Value

 

[Jack]

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

 

[Jack]

Also, another related question.
How my vbasic application can get Windows notification (message) that user
click on the cell in Excel?
Is that possible?

 

[Rob van Gelder]

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

 

[Jack]

I am not sure how that supposed to work.
I did exactly as you said.
1. I installed Excel and load the reference to Excel Object Library in my
vbasic5 code.
2. I created Class1 module and put your 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 other 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.

What I need is:
1. Get notified the user clicked on Excel cell
2. Retrieve the value of that cell

Please help,
Jack