Office XP Run Time Error after upgrade from Office 2000 
Author Message
 Office XP Run Time Error after upgrade from Office 2000

I have a word document that updates data in an Excel spreadsheet. These were
created in Office 97. They ran fine on updating to Office 2000! Since
updating to office XP I get "Run-time error -2147023170 (800706be)"
Automation Error The remote procedure call failed. The Office help file
gives error 440 (When Help button is pressed) The KB has no references to
this error in Office - a few in VB6. I have checked permissions and they are
OK (As partition is now NTFS) I have even updated DAO to 3.6. All to no
avail. It would appear that the spreadsheet is being opened and updated ok
but the error occurs when "Save" is invoked.

Below is a piece of code where the error occurs.

Any help greatly appreciated.


Public Sub UpdateSpreadsheetMinus()      'Procedure to alter stock (Minus)
if boot stock is used

    Dim xlWsheet As Object     'Variable to set XL SS to
    Dim SPT As Integer        'Variable for search loop (SearchParT)
    Dim PartExist As Boolean       'Variable for checking part no

    Set xlWsheet = GetObject(FullPath) 'open wsheet and assign to xlWsheet

        For SPT = 4 To 100         'Number of rows used in SS - To be
enhanced by checking for the last row entry

            With xlWsheet

                If .Worksheets(1).Cells(SPT, 1).Value = ComboBox2.Text Then
'Check to see part no in Combo2 is in the list

                PartExist = True       'Flag to check (Later in code) for
part no existing in bootstock

                    If .Worksheets(1).Cells(SPT, 2).Value <= 0 Then
'Test that stock level is not already zero or less
                    MsgBox ("Stock Quantity is Zero!" + Chr(10) + "Update
will be cancelled!!"), 16, "No Stock"
                    Call DelLastRow                    'Remove entries from
Word table (Note no removal required on SS as data not updated yet
                    Exit For
'Exit loop and jump to Next SPT
                    End If

                .Worksheets(1).Cells(SPT, 2).Value =
.Worksheets(1).Cells(SPT, 2).Value - 1    'Reduce stock amount by 1

                End If

            End With

        Next SPT

        If PartExist = False Then
'If part number did not exist-

        MsgBox ("This is not a Bootstock part number - please check it and
try again!" + Chr(13) + "                          Update Has been Cancelled
"), 48, "Incorrect Part Number"     'run error msg -

'clear table last table entry in word -
        Call ClearForm
'& clear form contents

        End If

    xlWsheet.Windows(1).Visible = True          'Make wsheet visible in XL
    xlWsheet.Save                               'Save before quitting - THIS
    xlWsheet.Application.Quit                   'Quit XL
    Set xlWsheet = Nothing                      'Free up memory

End Sub

Tue, 22 Mar 2005 01:24:07 GMT  
 Office XP Run Time Error after upgrade from Office 2000
Hi R.Wilson,

> It would appear that the spreadsheet is being opened and updated ok
> but the error occurs when "Save" is invoked.

Are you able to open, edit and save the worksheet in the Excel UI
with no problems? Or are there messages?

What about opening, changing, saving (a copy) with code in an Excel
module? That might at least give you a more informative eror message
than "Automation error"...

Do you have any file managment or anti-virus software running? If you
do, turn it off and test again to see if that's interfering.

Cindy Meister
INTER-Solutions, Switzerland

This reply is posted in the Newsgroup; please post any follow
question or reply in the newsgroup and not by e-mail :-)

Thu, 24 Mar 2005 20:30:19 GMT  
 Office XP Run Time Error after upgrade from Office 2000
Yep! your problem is with the line
in XP you have to change this to
a workbook object eg
if xlbook is set to the current workbook  will work.

Excel Visual Basic help says
expression   Required. An expression that returns a Workbook object.

Fri, 01 Apr 2005 06:50:44 GMT  
 [ 3 post ] 

 Relevant Pages 

1. Office 2000 and Office XP question

2. Behavior under Office 2000 vs. Office XP

3. Automating Mail Merge with VB.Net and Office XP and Office 2000 produces mixed results

4. Office 2000/XP upgrade

5. VB run time error 1004 under XP Office

6. Building with Office XP, running with 2000

7. Office 2000 & Office 97 Automation Error

8. installing Office 2000 kills Access 97 run-time applications

9. Getting Error Code:5922 when running word mail merge on Office XP

10. Office 97 Vs. Office 2000

11. Office 2000 vs office 97

12. office 2000 and office 97 compatibility


Powered by phpBB® Forum Software