G9 is on sheet one. I do not have a problem writing to sheet one in general,
my problem is writing to sheet one with data from a datagrid.

"George Nicholson" wrote:

I am trying to take the value
(text or integer) of cell (3,1) in the Datagrid and transfers it to cell
"G9"

Yes, but "G9" on WHAT SHEET?

*Assuming* objExcel is properly declared as Excel.Application somewhere
else(since it isn't declared in the supplied snippet) then:

objExcel.Range("G9").Value = yada yada

is the same as

Application.Range("G9").Value = yada yada

That simply doesn't tell Excel what your intentions are.

I'm guessing you are getting a 1004 error which usually translates as "You
haven't given me enough information. I don't know what (or which) object
you're trying to reference. Please be specific."

Again, that's an assumption. You say "it did not work", which is, again, a
little light on information. (it threw an error?, did nothing?, did
something other than intended?, crashed? etc.)


--
HTH,
George


"Stumped Programmer" wrote in
message ...
Thank you,

The cells I am refering to are in a Datagrid (stated "table" in post) in
my
project.
With the line: *.Range("G9").Value =
Val(EDV_DMM_STD_SummaryDataGridView(3,1))* I am trying to take the value
(text or integer) of cell (3,1) in the Datagrid and transfers it to cell
"G9"
in Excel


"Roger Govier" wrote:

Hi

I think you would need a

.Sheets("Sheet1").Activate or .Select
before referring to the individual cell ranges.

--

Regards
Roger Govier

"Stumped Programmer" <Stumped wrote
in
message ...
I am wondering how to use excel's automated reference to automate
updating
data in a excel file using access.

Ex: Using the ".Range("G9").Value ="

I have personally tried using this code (it did not work)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

With objExcel
.Visible = True
.Workbooks.Open("\EDV SUMMARY SAMPLE.xls")
*.Range("G9").Value =
Val(EDV_DMM_STD_SummaryDataGridView(3,1))*
.Range("A1").ColumnWidth = 20
.Range("A1").Font.Bold = True
.Range("A2").Value = "So. Main St."
.Range("A3").Value = "Hartford" & ", " & "CT"
End With

**this is a control table conected to a linked databse. I am
trying
to point to a cell in the table by using indexes and write the data to
the
excel doc.