Excel object Error

dpkbahuguna · July 28th, 2006, 01:07 AM

Run time Error - '1004'
Application-defined or object defined error

exception raising in this expression.

ExcelSht.Range("c" & Trim(Str(Cnt1))).AddComment StrComment

can anyone help me...
Thanks.....

DPK..

DanRoche · July 28th, 2006, 10:24 AM

I received no errors using the following code

Code:

Dim oExcel As New Excel.Application
oExcel.Workbooks.Add
oExcel.Visible = False
oExcel.DisplayAlerts = False
Dim cnt1 As Integer
Dim strComment As String

cnt1 = 1
strComment = "Test Comment"
oExcel.Range("A" & Trim(Str(cnt1))).AddComment strComment
oExcel.ActiveWorkbook.SaveAs ("C:\commenttest.xls")
oExcel.Quit

What are the contents of "cnt1" ad "strComment" when you run the line?

dpkbahuguna · July 29th, 2006, 05:30 AM

No no no..
actually there is no syntax problem...
this expression running twice..

ExcelSht.Range("c" & Trim(Str(Cnt1))).AddComment StrComment

first time it is not giving any error but second time error is being raised...
i think this exception is related to ExcelSht Object.
but what?
I dont know...
can you help me?
and thanks for your reply!

DPK..

shameerpathoor · July 30th, 2006, 07:05 AM

I AM FROM INDIA
MY DOUBT IS FROM MICROSOFT EXCEL
HOWEXCEL CAN READ A NUMBER IN WORDS
ie, 234 AS Two Hundred and Four

DanRoche · July 31st, 2006, 10:17 AM

Quote:

quote:Originally posted by dpkbahuguna
No no no..
actually there is no syntax problem...
this expression running twice..

ExcelSht.Range("c" & Trim(Str(Cnt1))).AddComment StrComment

first time it is not giving any error but second time error is being raised...
i think this exception is related to ExcelSht Object.
but what?
I dont know...
can you help me?
and thanks for your reply!

DPK..

DPK,

you can't add a comment to a cell that already has a comment. Are you changing the value of cnt1?

For example, this gives me an error:

Code:

cnt1 = 1
For k = 1 To 5
  strComment = "Test Comment" & k
  oExcel.Range("A" & Trim(Str(cnt1))).AddComment strComment
  oExcel.ActiveWorkbook.SaveAs ("C:\commenttest.xls")
Next
oExcel.Quit

While this works fine

Code:

for k = 1 To 5
  cnt1 = k
  strComment = "Test Comment" & k
  oExcel.Range("A" & Trim(Str(cnt1))).AddComment strComment
  oExcel.ActiveWorkbook.SaveAs ("C:\commenttest.xls")
Next
oExcel.Quit

dpkbahuguna · August 1st, 2006, 01:10 AM

yes I am adding a comment in such a cell which already has a comment..
so is there method to remove this comment?
because there are some conditions that I have to add the comment at the same cell which already has a commnet..

thank you very much for you continue support!

DPK..

DanRoche · August 1st, 2006, 08:36 AM

Quote:

quote:Originally posted by dpkbahuguna
yes I am adding a comment in such a cell which already has a comment..
so is there method to remove this comment?
because there are some conditions that I have to add the comment at the same cell which already has a commnet..

thank you very much for you continue support!

DPK..

Yes

Code:

oExcel.Range("c" & Trim(Str(cnt1))).ClearComments

BrianWren · August 2nd, 2006, 03:14 PM

Trim(Str(Cnt1)) is equivalent to
CStr(Cnt1)

Str() adds a leading space, CStr() does not.