My data is two columns, with (could make it without) headers of Time, and Warning I want to be able to create a chart that shows the amount, and type of warning over time, from there either get a handle on the object and place it into an outlook email, or even just a copy paste would work for me. Please advise how to get this done, I think I am so close.
Thank you for any help.
Code: Select all
f1::Reload
Pause::Pause
f2::ListVars
Pause
!`::
function()
return
function()
{
when:=[]
what:=[]
Nothing:="Nothing to report, have a wonderful day."
TMP:=""
RMRKS:=""
Date1:=""
Date2:=""
EMOUT:=""
EMIN := Clipboard ; Email text var
Loop, Parse, EMIN,`n,`r ; parse email by line
{
tmp := StrSplit(A_LoopField, ";") ; for each line break it into chunks by ";"
rmrks := tmp.6 ; Warn code is in 6th index
If (InStr(rmrks, "Warning")) ; If this is a warning line
{
date1:=StrSplit(tmp.1, "/") ; date/time is in DD/MM/YYYY , split it up by "/"
date2= % date1.2 "/" date1.1 "/" date1.3 ; Rearrange the date into MM/DD/YYYY
EMOUT .= date2 "`t" rmrks "`n" ; Push into VAR "11/24/2016 13:40:45 WARNING MESSAGE"
}
}
EMOUT := StrReplace(EMOUT,"""") ; Replace all of the quotes in the var with Null
Loop, Parse, EMOUT,`n,`r ; Split output by line and then...
{
tmp := StrSplit(A_LoopField, ["`t"]) ; split lines by tab
when.insert(tmp.1) ; insert date/time stamp into "when" array
what.insert(tmp.2) ; insert Warn Code into "what" array
}
if (emout!="") ; If there was stuff to put into array
{
XL := ComObjCreate("Excel.Application") ; create an excel object
wbk := xl.Workbooks.Add ; add a workbook to the object
Xl.Visible := True ; make it visible
XL.Range("A1").Value := "Time" ;Create Time header
XL.Range("A:A").columnwidth := "20"
XL.Range("B:B").columnwidth := "56.86"
XL.Range("B1").Value := "Warning" ; Create Warning Header
for index in when
Xl.Range("A" . index+1).Value := when[index] ;add everything in the "when" array
for index in what
Xl.Range("B" . index+1).Value := what[index] ;add everything in the "what" array
rng := xl.Sheets(1).UsedRange.address
trgt := xl.Sheets(1).range("c1")
pvt := xl.ActiveWorkbook.PivotCaches.Create(xlDatabase:=1, rng, xlPivotTableVersion12:=3).CreatePivotTable(trgt, "PivotTable1", ,xlPivotTableVersion12:=3)
pvt.PivotFields("warning").Orientation := 1
pvt.PivotFields("warning").Position := 1
pvt.PivotFields("time").Orientation := 1
pvt.PivotFields("time").Position := 2
pvt.AddDataField(pvt.PivotFields("Warning"), "Count of Warning", -4112)
Ctrgt := xl.Sheets(1).range("D10")
Sheet := xl.Sheets(1)
Sheet.Shapes.AddChart.Select
xl.ActiveChart.SetSourceData(xlApp.Range(rng))
wbk.ShowPivotChartActiveFields := True
xl.ActiveChart.ChartType := 51
PF := Sheet.PivotTables("PivotTable1").PivotFields("Time")
PF.Orientation := 1
PF.Position := 2
PF := Sheet.PivotTables("PivotTable1").PivotFields("Warning")
PF.Orientation := 1
PF.Position := 1
PF := Sheet.PivotTables("PivotTable1").PivotFields("Count of Warning")
PF.Orientation := 1
PF.Position := 3
}
if (emout="")
Msgbox, %Nothing%
Reload
}
autohotkey.com/board/topic/149544-table-pivot-vs-table-pivot-chart-com
and
autohotkey.com/board/topic/125719-com-excel-pivot-table
End result I am looking for to embed into an outlook email:
http://imgur.com/a/6baLe
Sample input:
http://p.ahkscript.org/?p=a0ceb3b1