Automation objects and versioning betwee 2000 and 2002

  • Thread starter Thread starter BJ Freeman
  • Start date Start date
B

BJ Freeman

I have an 2000 ADE using office 2000 automation.
I have a client that tries to run this on their 2002 office
they are getting a 400 error when trying use the excel automation.

in the vba references I have the office 2000 excel object and 2000 access
object declared.

this has not been a problem for other clients using the same 2000 object on
a 2002 office machine.

Any Ideas where to look.
 
I have even rebuilt the ADE from the a New ADP and put in the code.
Dim AppXL As Excel.Application

filename = getfile(CurrentProject.Path, "open order report*.xls")
If InStr(filename, "no files found.") > 0 Then
MsgBox " unable to find File " & filename)"
Exit Sub
End If
Set AppXL = CreateObject("Excel.Application")
AppXL.Workbooks.Open (filename)
AppXL.Visible = True
----do some stuff on excel
-- works up to here.
AppXL.ActiveWorkbook.Close , True, filename
the excel will not close. mayber this has been removed in 2002 excel
object.
DoCmd.TransferSpreadsheet acImport, 8, "OpenOrders", filename, True
CurrentProject.connection.Execute "ADP_UpdtOpenOrders"
MsgBox "open orders imported"
 
BJ said:
I have an 2000 ADE using office 2000 automation.
I have a client that tries to run this on their 2002 office
they are getting a 400 error when trying use the excel automation.

in the vba references I have the office 2000 excel object and 2000 access
object declared.

this has not been a problem for other clients using the same 2000 object on
a 2002 office machine.

Any Ideas where to look.
Click to expand...

Remove the reference to the excel library and use late binding.
 
Thanks. will do that.
found the problem. I have the ACCRT on my computer. the ADE has linked to
it, instead of the standard Access.exe path.
This client has not put the ACCRT2000 on their computer.
 
Back
Top