Miltithreading-in-VBA-using-VBScript/Thread.vbs at master · Excel-lent/Miltithreading-in-VBA-using-VBScript · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit

' Following arguments are used:
' 0 - Workbook name
' 1 - Worksheet name
' 2 - Thread ID
' 3 - Parameter 1 (sleeping time)
' 4 - Output cell
' 5 - State cell

dim i, j, oXL

Set oXL = GetObject(, "Excel.Application")

oXL.workbooks(WScript.Arguments(0)).sheets(WScript.Arguments(1)).Range(WScript.Arguments(4)) = ""
oXL.workbooks(WScript.Arguments(0)).sheets(WScript.Arguments(1)).Range(WScript.Arguments(5)) = "Running"

WScript.Sleep WScript.Arguments(3)*1000

oXL.workbooks(WScript.Arguments(0)).sheets(WScript.Arguments(1)).Range(WScript.Arguments(4)) = "Greetings from thread " & WScript.Arguments(2)
oXL.workbooks(WScript.Arguments(0)).sheets(WScript.Arguments(1)).Range(WScript.Arguments(5)) = "Finished"