오토핫키- 엑셀에서 선택한 셀 다른 이름으로 저장하기.

엑셀 파일을 열고, 영역선택후 컨트롤+1 누르면 폴더생성후,

안에 현제시간으로 파일제목 저장.

 

^1::
x1 := comobjactive("excel.application")
x2 := comobjcreate("excel.application")
x2.Workbooks.Add
x2.range("A1") := "1"
x2.range("B1") := "2"
x2.range("C1") := "3"
x2.range("D1") := "4"
x2.range("E1") := "5"
x2.range("F1") := "6"
abac := x1.Selection.Rows.Count +1
x2.range("E2", "E" abac) := x1.Selection.value
x2.range("F2", "F" abac) := "CHN"
X2.SheetS(1).UsedRange.EntireColumn.AutoFit
X2.SheetS(1).UsedRange.EntireROW.AutoFit
FileCreateDir, 편집%A_MM%월%A_DD%일
fse = \편집%A_MM%월%A_DD%일\%A_Hour%%A_MIn%_%A_sec%.xlsx
BookaName:= A_WorkingDir . fse
x2.ActiveWorkbook.SaveAs(BookaName)
x2.quit
x1.quit
return