Re: Question about running macros...

[Steve Richter <stephenrichter@xxxxxxxxx>]

try to replace
     Set ObjFSO1 = CreateObject("UserAccounts.CommonDialog")
with
Set ObjFSO1 = CreateObject("GetOpenFileName")
here is another article:
http://msdn.microsoft.com/en-us/library/aa155724(v=office.10).aspx

and some code:
http://pastebin.com/6qwdgzaB

Set ObjFSO = CreateObject("GetOpenFileName")
ObjFSO.Filter = "All Files|*.*"
ObjFSO.FilterIndex = 3
ObjFSO.InitialDir = "C:\"
InitFSO = ObjFSO.ShowOpen
If InitFSO = False Then
Wscript.Quit
Else
ObjFSO.delete
End If


On Fri, Jul 15, 2011 at 4:06 PM, Mira, Antonio <antonio.mira@xxxxxxxxxxx>wrote:

> I did find a work around, though not pretty but it works.  I commented out
> the code that attempts to open the Dialog Box and hard coded the file name
> that I needed to open and now the macro runs as intended.  The issue seems
> to be something in Win 7 and UserDialog boxes.
>
> Thank you,
>
> Antonio Mira
> Application Developer - Mid-West Region
> Time Warner Cable
> 1015 Olentangy River Road - 2nd Floor
> Columbus, OH 43212
> http://www.timewarnercable.com
> phone: 614 827 7949
> cell: 614 365 0489
>
>
>
>
>
> -----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.
> --
> 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.