You don't

strFields = "A2:A" & intRecords + 1
ExcelApp.Sheets(strSource).Range(strFields).Copy


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dustin Ventin" wrote in message
...
In that case, how would I select and copy a certain range of records, such
as I am doing with the following code:

ExcelApp.Sheets(strSource).Select
strFields = "A2:A" & intRecords + 1
ExcelApp.Range(strFields).Select
ExcelApp.CutCopyMode = False
ExcelApp.Selection.Copy

Thanks!

Dustin

"Bob Phillips" wrote:

Don't need to use select, shouldn't use select.

And the reason is that it is slow and makes the coding much more
convoluted
and difficult to maintain.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dustin Ventin" wrote in
message
...
Don't need to what? Why shouldn't I use select?

Thanks.

Dustin

"Bob Phillips" wrote:

You don't need to, shouldn't use Select, and you need to specify the
sheet

With ExcelApp.Worksheets("Sheet1")
.Range("H2:AD2").AutoFill _
Destination:= ExcelApp.Range("H2:AD" & intRecords), _
Type:=xlFillDefault
End With
..

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dustin Ventin" wrote in
message
...
I am writing a Microsoft Access application that exports data to
Excel,
and
have just started using late binding. However, I am experiecing
some
errors
now that I have done so.

'Here is where I input the late binding code
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")

'Here is where I try to copy the cell formulas to encompass
all
input
rows

ExcelApp.Range("H2:AD2").Select
strFields = "H2:AD" & intRecords
ExcelApp.Selection.AutoFill
Destination:=ExcelApp.Range(strFields),
Type:=xlFillDefault

strFields is set to encompass all the rows that have been imported
into
Excel. However, the application no longer seems to work at the
last
line
of
code.

ExcelApp.Selection.AutoFill
Destination:=ExcelApp.Range(strFields),
Type:=xlFillDefault

Any ideas?

Thanks!

Dustin