ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Windows XP Office 2003 Run-time error '9' (https://www.excelbanter.com/excel-programming/410494-windows-xp-office-2003-run-time-error-9-a.html)

DUHAAS
Windows XP Office 2003 Run-time error '9'
 
I have the following macro that runs fine under windows 2000 and
office 2003, but doesnt work under windows xp and office 2003, anyone
have any idea:

Sub LoadAll()
'

' **** Fund 410 Start

'Open Extended Report Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\extendrpt.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\extendrpt.xls"
'Clear Out Old Values
Range("F27,g27,h27").ClearContents
Range("f27").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g27").Select

'Navigate Back To Source Workbook And Copy Current %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h27").Select

'Navigate Back To Source Workbook And Copy Effective %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Fund 412 Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\412\412-2008.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\412\412-2008.xls"
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select


'Open MMMF Daily Rate Sheet Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\MMMF Daily Rate Sheet.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\MMMF Daily Rate Sheet.xls"
'Clear Out Old Values
Range("e15,f15,g15,h15").ClearContents
Range("e15").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("f15").Select


'Navigate Back To Source Workbook And Copy 1-day yield
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 13).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g15").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h15").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Y Class Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\Dailyrpt"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\Dailyrpt"
'Clear Out Old Values
Range("e25,g25,h25").ClearContents
Range("e25").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Y-class Workbook
Windows("Dailyrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g25").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h25").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Close And Save 410 Fund Workbook
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
ActiveWorkbook.Save
ActiveWindow.Close

'
End Sub

Norman Jones[_2_]
Windows XP Office 2003 Run-time error '9'
 
Hi Duhaas,

Which line of code is highlighted when
your error message is encountered



---
Regards.
Norman


"DUHAAS" wrote in message
...
I have the following macro that runs fine under windows 2000 and
office 2003, but doesnt work under windows xp and office 2003, anyone
have any idea:

Sub LoadAll()
'

' **** Fund 410 Start

'Open Extended Report Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\extendrpt.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\extendrpt.xls"
'Clear Out Old Values
Range("F27,g27,h27").ClearContents
Range("f27").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g27").Select

'Navigate Back To Source Workbook And Copy Current %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h27").Select

'Navigate Back To Source Workbook And Copy Effective %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Fund 412 Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\412\412-2008.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\412\412-2008.xls"
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select


'Open MMMF Daily Rate Sheet Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\MMMF Daily Rate Sheet.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\MMMF Daily Rate Sheet.xls"
'Clear Out Old Values
Range("e15,f15,g15,h15").ClearContents
Range("e15").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("f15").Select


'Navigate Back To Source Workbook And Copy 1-day yield
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 13).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g15").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h15").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Y Class Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\Dailyrpt"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\Dailyrpt"
'Clear Out Old Values
Range("e25,g25,h25").ClearContents
Range("e25").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Y-class Workbook
Windows("Dailyrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g25").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h25").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Close And Save 410 Fund Workbook
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
ActiveWorkbook.Save
ActiveWindow.Close

'
End Sub


DUHAAS
Windows XP Office 2003 Run-time error '9'
 
On May 5, 3:54*pm, "Norman Jones"
wrote:
Hi Duhaas,

Which line of code is highlighted when
your error message is encountered

---
Regards.
Norman

"DUHAAS" wrote in message

...

I have the following macro that runs fine under windows 2000 and
office 2003, but doesnt work under windows xp and office 2003, anyone
have any idea:

Sub LoadAll()
'

' **** Fund 410 Start

'Open Extended Report Workbook
* Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\extendrpt.xls"
* 'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\extendrpt.xls"
* 'Clear Out Old Values
* Range("F27,g27,h27").ClearContents
* Range("f27").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Copy

'Paste Value To Extended Report Workbook
* Windows("extendrpt.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("g27").Select

'Navigate Back To Source Workbook And Copy Current %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 2).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To Extended Report Workbook
* Windows("extendrpt.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("h27").Select

'Navigate Back To Source Workbook And Copy Effective %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 6).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To Extended Report Workbook
* Windows("extendrpt.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Application.CutCopyMode = False
* ActiveWorkbook.Save
* ActiveWindow.Close

'Open Fund 412 Workbook
* Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\412\412-2008.xls"
* 'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\412\412-2008.xls"
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(1, 0).Select

'Open MMMF Daily Rate Sheet Workbook
* Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\MMMF Daily Rate Sheet.xls"
* 'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\MMMF Daily Rate Sheet.xls"
* 'Clear Out Old Values
* Range("e15,f15,g15,h15").ClearContents
* Range("e15").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
* Windows("MMMF Daily Rate Sheet.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("f15").Select

'Navigate Back To Source Workbook And Copy 1-day yield
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 13).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
* Windows("MMMF Daily Rate Sheet.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("g15").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 2).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
* Windows("MMMF Daily Rate Sheet.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("h15").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 6).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
* Windows("MMMF Daily Rate Sheet.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Application.CutCopyMode = False
* ActiveWorkbook.Save
* ActiveWindow.Close

'Open Y Class Workbook
* Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\Dailyrpt"
* 'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\Dailyrpt"
* 'Clear Out Old Values
* Range("e25,g25,h25").ClearContents
* Range("e25").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Copy

'Paste Value To Y-class Workbook
* Windows("Dailyrpt.xls").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("g25").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 2).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To Y-Class Workbook
* Windows("Dailyrpt").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Range("h25").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* Selection.Offset(0, 6).Select
* Application.CutCopyMode = False
* Selection.Copy

'Paste Value To Y-Class Workbook
* Windows("Dailyrpt").Activate
* Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
* * * False, Transpose:=False
* Application.CutCopyMode = False
* ActiveWorkbook.Save
* ActiveWindow.Close

* 'Close And Save 410 Fund Workbook
* Windows("410-2008.xls").Activate
* Range("C10000").Select
* Selection.End(xlUp).Select
* ActiveWorkbook.Save
* ActiveWindow.Close

'
End Sub


'Paste Value To Y-class Workbook
Windows("Dailyrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g25").Select

The second line is highlighted


All times are GMT +1. The time now is 01:59 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com