Code: Select all
=========================ahk======================
5::
arr:=array("A","B","C")
ComObjActive("excel.application").run("Joinarr",arr)
return
===========================vba====================
Function Joinarr(arr)
For Each a In arr
s = s + "-" + a
Next
Joinarr = s
End Function