Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default 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
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 421
Default 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


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default 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
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
eula pops up every time i open an office program. office 2003 ins. ijscholl Excel Discussion (Misc queries) 0 July 28th 09 11:54 PM
Slow performance on office 2003 in windows vista Hyperstitious Excel Discussion (Misc queries) 0 September 11th 08 11:25 AM
Does microsoft office 2003 work with windows vista? ploree Excel Discussion (Misc queries) 3 May 7th 07 04:15 PM
Run time error 1004 generated in Excel (Office 2003) [email protected] Excel Programming 1 September 5th 06 02:43 PM
Text-to-Speech ToolBar can't be activated - Office 2003/Windows X. STT Excel Discussion (Misc queries) 0 November 30th 04 06:45 AM


All times are GMT +1. The time now is 06:12 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"