Code: Select all
^e::Run "Excel"
#x:: {
xx := FormatTime("yyyMMdd")
Send xx
}
Code: Select all
^e::Run "Excel"
#x:: {
xx := FormatTime("yyyMMdd")
Send xx
}
Code: Select all
F12::ExcelAddSheetLast()
ExcelAddSheetLast() {
xlSheets := ComObjActive("Excel.Application").ActiveWorkbook.Sheets
xlSheets.Add(, xlSheets.Item(xlSheets.Count))
}
Code: Select all
g.AddMonthCal("vMyCalendar").OnEvent("Change", CalChanged)
...
CalChanged(GuiCtrlObj, Info) {
MsgBox GuiCtrlObj.Name "`n" GuiCtrlObj.Value "`n" Info
}