× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks for the replies...

Tried all the solutions offered but still no luck. I unregistered and registered the .dll and .ocx as the article suggests and still get the same error. Tried it with admin rights, but nothing. This is the original code that works in XP.

Private Function openInputFile()
Set ObjFSO1 = CreateObject("UserAccounts.CommonDialog")
objFSO1.Filter = "CSV Files|*.csv"
ObjFSO1.FilterIndex = 1
ObjFSO1.InitialDir = "C:\Temp\"
InitFSO = ObjFSO1.ShowOpen
If InitFSO = False Then
openInputFile = false
Exit Function
End If
openInputFile = True
End Function

Thanks again for the replies. I will keep playing with it and if I find something that works, I will let you know...

Thank you,

Antonio Mira




-----Original Message-----
From: systemidotnet-bounces@xxxxxxxxxxxx [mailto:systemidotnet-bounces@xxxxxxxxxxxx] On Behalf Of Richard Schoen
Sent: Friday, July 15, 2011 1:21 PM
To: systemidotnet@xxxxxxxxxxxx
Subject: Re: [SystemiDotNet] Question about running macros...

Google is your friend:

useraccounts.commondialog activex not found

Regards,
Richard Schoen
RJS Software Systems Inc.
Where Information Meets Innovation
Document Management, Workflow, Report Delivery, Forms and Business Intelligence
Email: richard@xxxxxxxxxxxxxxx
Web Site: http://www.rjssoftware.com
Tel: (952) 736-5800
Fax: (952) 736-5801
Toll Free: (888) RJSSOFT

----------------------------------------------------------------------

message: 1
date: Fri, 15 Jul 2011 11:52:20 -0400
from: "Mira, Antonio" <antonio.mira@xxxxxxxxxxx>
subject: [SystemiDotNet] Question about running macros...

Hello,

I have a macro that I created for an end user to do some repetitive tasks on a green-screen iSeries session. The macro is written in VB script and it runs fine under Windows XP. Recently, the user upgraded to Win 7 and when she tries to run the macro, she gets the following error:

Error in the script on line 190: AcitveX component can't create object: 'UserAccounts.CommonDialog'.

What the macro is attempting to do at that point is this command:

Set ObjFSO1 = CreateObject("UserAccounts.CommonDialog")

Which is needed to open an "Open File" dialog so the user can open a csv file for the macro to process it.

Has anybody run into this situation? And if so, what did you do resolve it? As always, thanks for the help. I have researched on the internet for this type of error and tried the solutions offered but had not had any luck.



Thank you,

Antonio Mira
Application Developer

--
This is the .net use with the System i (SystemiDotNet) mailing list
To post a message email: SystemiDotNet@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/systemidotnet
or email: SystemiDotNet-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/systemidotnet.

This E-mail and any of its attachments may contain Time Warner Cable proprietary information, which is privileged, confidential, or subject to copyright belonging to Time Warner Cable. This E-mail is intended solely for the use of the individual or entity to which it is addressed. If you are not the intended recipient of this E-mail, you are hereby notified that any dissemination, distribution, copying, or action taken in relation to the contents of and attachments to this E-mail is strictly prohibited and may be unlawful. If you have received this E-mail in error, please notify the sender immediately and permanently delete the original and any copy of this E-mail and any printout.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.