Error 3011 after installation to another pc
I did an ADP (Access 2000) for a sports event, in this adp I used DoCmd.TransferSpreadsheet acExport to export a list of participants to an excel file, this file was used to insert results and then the results where imported by DoCmd.TransferSpreadsheet acImport.
Here the Code passage
'export
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9, "ListePktExp", "C:\Dokumente und Einstellungen\All Users\Desktop\MyFile.xls", True
........
the import went similar, only that there first I used a loop to check the drives for the file 'MyFile.xls'
'Excel Daten ins Zwischenlager 'ListePktExp'
Set ds = CreateObject("Scripting.FileSystemObject")
For Each dsObj In ds.Drives
If dsObj.DriveType = 1 Or dsObj.DriveType = 4 Then
With Application.FileSearch
.NewSearch
.LookIn = dsObj.DriveLetter & ":\"
.FileName = "MyFile.xls"
.SearchSubFolders = True
'as soon as the file is found use the path to import
If .Execute > 0 Then
DoCmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel9, "ListePktExp", dsObj.DriveLetter & ":\"& .FileName, True
End If
End With
End If
Next
Everything worked well, but now I transfered the adp to a notebook and there everything works fine except the DoCmd.Transferspreadsheet when I try to export it causes the Runtime Error 3011,JetDatabase engine could not find the object, and when importing there is something similar, named runtime error 3251
I checked the spelling, I tried to put the file and path name in a string variable, I checked for missing libraries, I compared the office installation (on both machines it's office 2003 and XP Pro)
I am very happy if someone has an idea what to do, thanks a lot, bluebear
|
