Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
eula pops up every time i open an office program. office 2003 ins. | Excel Discussion (Misc queries) | |||
Slow performance on office 2003 in windows vista | Excel Discussion (Misc queries) | |||
Does microsoft office 2003 work with windows vista? | Excel Discussion (Misc queries) | |||
Run time error 1004 generated in Excel (Office 2003) | Excel Programming | |||
Text-to-Speech ToolBar can't be activated - Office 2003/Windows X. | Excel Discussion (Misc queries) |