Code: Select all
_ := ComObjCreate("Excel.application")
_.Visible := True
_.Workbooks.Open(myFile)
x := _.Range("A1").Value
y := _.Sheets(1).Range("A1").Value
MsgBox, % x "`n" y
Code: Select all
_ := ComObjCreate("Excel.application")
_.Visible := True
_.Workbooks.Open(myFile)
x := _.Range("A1").Value
y := _.Sheets(1).Range("A1").Value
MsgBox, % x "`n" y
Code: Select all
F10:: MsgBox F10
F11:: MsgBox F11
F12:: MsgBox F12
Code: Select all
_ := ComObjCreate("Scripting.Dictionary")
_.Item("Yellow") := "First"
_.Item("Black") := "Second"
_.Item("Green") := "Third"
For k In _
r .= k ", " _.Item(k) "`n"
MsgBox % r
Code: Select all
myBefore := "9 7 3 1 2 8 4 5 6"
myTemp := RegExReplace(myBefore, " ", "`n")
Sort, myTemp
myAfter := RegExReplace(myTemp, "`n", " ")
MsgBox % ""
. myBefore "`n"
. myAfter