Code: Select all
:B0C*:Mr. ::
Send % "{Backspace 1}" Chr(0x00A0)
return
Code: Select all
:B0C*:Mr. ::
Send % "{Backspace 1}" Chr(0x00A0)
return
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))
}