Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate start VB in another instance of excel and continue _without_waiting for code to finish
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate start VB in another instance of excel and continue _without_ waiting for code to finish
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 wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate start VB in another instance of excel and continue_without_ waiting for code to finish
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 wrote in message ... 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 - |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate start VB in another instance of excel and continue _without_ waiting for code to finish
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 wrote in message ... 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 wrote in message ... 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 - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
start finish dates | Excel Discussion (Misc queries) | |||
how can I get excel to fill using a start and finish time | Excel Programming | |||
Getting no of hours from start to finish | Excel Discussion (Misc queries) | |||
Start & Finish Time | Excel Worksheet Functions | |||
Set up Excel to start new instance for each new file opened. | Excel Discussion (Misc queries) |