> xl.Run StartSub
I missed that part. Same suggestion as before.
Put a new routine in the same workbook as StartSub
Sub SartSubOnTime()
Application.OnTime Now, "StartSub"
End Sub
and do
xl.Run SartSubOnTime
I don't know if you will get the similar routines in different automated
instances to run asynchronously like that but give it a try. At the very
least all your code in your main routine should complete more quickly.
Regards,
Peter T
<(E-Mail Removed)> wrote in message
news:25524c0e-575a-44ab-93ec-(E-Mail Removed)...
Hi Peter,
Thanks for taking time to take a look at this issue!
Actually, loading the adds in that part of the code takes 20 seconds,
but works fine..
I'm in need for inspiration on the 'xl.Run StartSub' line.
That line will run the vba code I selected, but it should only start
the code and continue with End If etc.. and not first wait 2 hours for
the 'StartSub' code to finish.
Hope this clearifies the problem a bit..
Regards,
Poniente
On 22 feb, 21:33, "Peter T" <peter_t@discussions> wrote:
> Not sure I quite follow but I guess the open event of one of those addins
> (you are opening all the installed ones) goes on to do a lot of stuff. If
> that's the case, in the relevant open event call that long code with an
> OnTime macro
>
> In passing,
> xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
>
> Be careful doing that with all (unknown) addins with that in case the
> addin
> is not the type that might have Auto_Open, eg a dll or xll.
>
> Regards,
> Peter T
>
> <bosena...@gmail.com> wrote in message
>
> news:5136d76d-17ac-4ede-b9ab-(E-Mail Removed)...
>
>
>
> > Hi all,
>
> > Can anyone help me out with my last step in getting multiprocessing
> > automated?
> > I want to open several instances of excel and have each instance run
> > VB for about 2 hours. I guess I'm halfway:
>
> > The code below starts a new instance of excel, opens the specified
> > file, and starts the VB.
> > The problem is that it will now wait till the VB code is finished,
> > whereas I'd like it to continue starting up the other instances..
>
> > Can anyone help me out on this one?
>
> > Regards,
> > Poniente
>
> > Sub XlNewInstanceWithAddins(Optional PathFile As String, Optional
> > StartSub As String)
> > Dim xl As Object
> > Dim ai As Object
>
> > Dim PersPath As String
>
> > PersPath = Workbooks("Personal.xls").Path
>
> > Set xl = CreateObject("Excel.Application")
>
> > On Error Resume Next
>
> > For Each ai In Application.AddIns
> > If ai.Installed Then
> > xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
> > End If
> > Next
>
> > xl.Workbooks.Open PersPath & "\Personal.xls"
> > xl.Visible = True
>
> > If PathFile <> "" Then
> > xl.Workbooks.Open PathFile
> > If StartSub <> "" Then
> > xl.Run StartSub
> > End If
> > End If
>
> > Set xl = Nothing
>
> > End Sub- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -
Similar Threads
