store error messages

[ram_Sathish]

Hi All,

I tried storing the msgbox using the following code, but it did not work.
dim s
s=msgbox("Hi")

it return the s value as 1


I tried storing the error message which was declared (using msgbox) into excel file from vb application. But i could store it, it had open the excel application but i could not store the data into the sheets.

can any one please help me.

 

[SydneyGeek]

Hi Ram,

I'm not sure what you are trying to do here. Why do you want to store the MsgBox result?

What you are doing here is effectively doing a test.
s=MsgBox("Hi") will very likely evaluate as True, which is 1 in Excel.

If you can provide a bit more information on what you need to achieve, we will be able to help you.

Denis

 

[Norie]

Ram

Like Denis I'm curious as to what you are actually wanting to do.

Could you explain further?

Denis

The code is not doing a comparison it's setting s to whatever value is returned by the message box.

In the OP's code the message box will only display the default OK button, vbOK = 1 so s = 1.

A better example might be this.

s = MsgBox("Hi", vbOKCancel)
MsgBox s

If you hit OK, s=1, if you hit Cancel it's 2.

 

[SydneyGeek]

Hi Norie,

Yes I had forgotten about the MsgBox value returns. Thanks for the heads-up.

Denis