打开excel文件_选中D列单元格内容按#z

;~ Excel constants
xlUp= -4162
xlDown=-4121
xlToRight= -4161
xlToLeft= -4159

#z::
xls:=ComObjActive("excel.application")
xlss:=xls.ActiveSheet
xlsc:=xls.ActiveCell

cellSelection:= xls.Selection.address(0,0)

zuoyou :=StrSplit(cellSelection,"`:")  

MaxIndex:= zuoyou.MaxIndex()

	FirstCol:=0
	LastCol:=0
	FirstRow :=0
	LastRow :=0

if MaxIndex=1
{
	/*
	选中单列
	FirstCol:=xlsc.column()
	LastCol:=xlsc.column()
	FirstRow := xlsc.row()
	LastRow := xlsc.End(xlDown).row()
   */
   ;选中单个单元格
	FirstCol:=xlss.Range(zuoyou[1]).column()
	LastCol:=xlss.Range(zuoyou[1]).column()
	FirstRow := xlss.Range(zuoyou[1]).row()
	LastRow :=xlss.Range(zuoyou[1]).row()
}
else
{
	;选中多个单元格
	FirstCol:=xlss.Range(zuoyou[1]).column()
	LastCol:=xlss.Range(zuoyou[2]).column()
	FirstRow := xlss.Range(zuoyou[1]).row()
	LastRow :=xlss.Range(zuoyou[2]).row()
}



;~ MsgBox % Join("`n", FirstCol,LastCol,FirstRow,LastRow)
c:=1
r:=1
sum:=0
Loop
{
    c:=A_Index
    if (c""
		sum:=sum+word_array[1]*60+word_array[2]
	else
		sum:=sum+word_array[1]
}
sum(d)
{
	global sum
	sum+=d
}