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.

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.

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.

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.

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

"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.

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" 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.