Hello,

For a year and a half I've had an Excel macro working fine. I haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this (essential) one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget

Maybe Scripting has been disabled by the administrator in that machine

Regards,
Peter T

"Budget Programmer" wrote in
message ...
Hello,

For a year and a half I've had an Excel macro working fine. I haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this (essential)
one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four
references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget

Peter,
Are you speaking of Virus Protection Software or some other system setting?
I'm not quite sure what you mean. I'm the only one that uses the machine,
but maybe some update or something changed it. Where should I look?
Thanks.
Phil
--
Programmer on Budget


"Peter T" wrote:

Maybe Scripting has been disabled by the administrator in that machine

Regards,
Peter T

"Budget Programmer" wrote in
message ...
Hello,

For a year and a half I've had an Excel macro working fine. I haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this (essential)
one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four
references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget


.

If you are the only user then it sounds like it has not been disabled.
(Though it is one component admin's sometimes want to disable in a corporate
environment).

In Tools References look for "Microsoft Scripting Runtime" and tick it. Add
the following and run it

Sub test()
Dim objFSO As Object
Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject

MsgBox fso.Drives.Count, , "fso New"
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.Drives.Count, , "fso CreateObject"

Set fso = Nothing

Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox objFSO.Drives.Count, , "objFSO CreateObject"

End Sub

Report back if all/some/none of the above tests worked, or if you couldn't
even set the reference.

Regards,
Peter T


"Budget Programmer" wrote in
message ...
Peter,
Are you speaking of Virus Protection Software or some other system
setting?
I'm not quite sure what you mean. I'm the only one that uses the machine,
but maybe some update or something changed it. Where should I look?
Thanks.
Phil
--
Programmer on Budget


"Peter T" wrote:

Maybe Scripting has been disabled by the administrator in that machine

Regards,
Peter T

"Budget Programmer" wrote in
message ...
Hello,

For a year and a half I've had an Excel macro working fine. I haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this
(essential)
one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four
references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget


.

Hi Peter,
Before doing anything, I ran stepped through your code. It stopped at the
DIM FSO statement. Initially, I couldn't a reference for "Microsoft
Scripting Runtime". I went to another PC and found that the reference is
located in file "C:\Windows\System32\scrrun.dll" I browesed for that and was
able to add the reference. (It's interesting that I had to browse for it.)

However, At the SET statement I get the same error:
"Run-time error '429':
ActiveX component can't create object"

Thanks for your help.
I'm still at a loss.
Phil
--
Programmer on Budget


"Peter T" wrote:

If you are the only user then it sounds like it has not been disabled.
(Though it is one component admin's sometimes want to disable in a corporate
environment).

In Tools References look for "Microsoft Scripting Runtime" and tick it. Add
the following and run it

Sub test()
Dim objFSO As Object
Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject

MsgBox fso.Drives.Count, , "fso New"
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.Drives.Count, , "fso CreateObject"

Set fso = Nothing

Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox objFSO.Drives.Count, , "objFSO CreateObject"

End Sub

Report back if all/some/none of the above tests worked, or if you couldn't
even set the reference.

Regards,
Peter T


"Budget Programmer" wrote in
message ...
Peter,
Are you speaking of Virus Protection Software or some other system
setting?
I'm not quite sure what you mean. I'm the only one that uses the machine,
but maybe some update or something changed it. Where should I look?
Thanks.
Phil
--
Programmer on Budget


"Peter T" wrote:

Maybe Scripting has been disabled by the administrator in that machine

Regards,
Peter T

"Budget Programmer" wrote in
message ...
Hello,

For a year and a half I've had an Excel macro working fine. I haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this
(essential)
one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four
references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget


.



.

Try re-registering scrrun.dll.
Windows start, Run, enter the following and hit enter
regsvr32 scrrun.dll

As the dll is in the system folder it should get found and registered and
you'll get a Success message. If not try browsing to it and try again

If it fails to register or still doesn't work it's probably a 'permissions'
issue, though not sure why as you are the only user. I don't recall where to
look in the registry but I imagine there's plenty 'out there'.

Thinking about regsvr32 again, in Vista I expect you will need to log on as
administrator and maybe turn off the UAC (not sure)

Regards,
Peter T



"Budget Programmer" wrote in
message ...
Hi Peter,
Before doing anything, I ran stepped through your code. It stopped at the
DIM FSO statement. Initially, I couldn't a reference for "Microsoft
Scripting Runtime". I went to another PC and found that the reference is
located in file "C:\Windows\System32\scrrun.dll" I browesed for that and
was
able to add the reference. (It's interesting that I had to browse for
it.)

However, At the SET statement I get the same error:
"Run-time error '429':
ActiveX component can't create object"

Thanks for your help.
I'm still at a loss.
Phil
--
Programmer on Budget


"Peter T" wrote:

If you are the only user then it sounds like it has not been disabled.
(Though it is one component admin's sometimes want to disable in a
corporate
environment).

In Tools References look for "Microsoft Scripting Runtime" and tick it.
Add
the following and run it

Sub test()
Dim objFSO As Object
Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject

MsgBox fso.Drives.Count, , "fso New"
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.Drives.Count, , "fso CreateObject"

Set fso = Nothing

Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox objFSO.Drives.Count, , "objFSO CreateObject"

End Sub

Report back if all/some/none of the above tests worked, or if you
couldn't
even set the reference.

Regards,
Peter T


"Budget Programmer" wrote in
message ...
Peter,
Are you speaking of Virus Protection Software or some other system
setting?
I'm not quite sure what you mean. I'm the only one that uses the
machine,
but maybe some update or something changed it. Where should I look?
Thanks.
Phil
--
Programmer on Budget


"Peter T" wrote:

Maybe Scripting has been disabled by the administrator in that machine

Regards,
Peter T

"Budget Programmer" wrote
in
message ...
Hello,

For a year and a half I've had an Excel macro working fine. I
haven't
changed anything to the PC that would affect Excel, to my knowledge.
I'm running Vista 32 Home Premium and Office 2007.
I have the following references checked in "Tools / References":
- Visual Basic for Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

This code runs on other PC's, but it stopped running on this
(essential)
one.
When it encounters the first SET statement, it give the error:
"Run-time error '429':
ActiveX component can't create object"

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object
Dim strSongs_EditedPath As String

'ASSIGN INITIAL VALUES

strSongs_EditedPath = "C:\Users\Phil\Documents\Songbook On
Screen\Songs-Edited"

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)
End Sub

In which reference is the "Scripting.FileSystemObject" located?
The code snipet runs fine on another PC, which has the same four
references
checked. However it stopped runing on the essential PC.
Thanks for looking into this.
Phil
--
Programmer on Budget


.



.