[AHK]将数组中内容填充到excel

来源：互联网发布：一号店和淘宝开店编辑：程序博客网时间：2024/06/13 22:01

This simple function will put the data in an active Excel sheet starting at the range indicated.

案例一

; http://www.autohotkey.com/board/topic/56987-com-object-reference-autohotkey-v11/page-7#entry394713; http://www.autohotkey.com/board/topic/69033-basic-ahk-l-com-tutorial-for-excel/SafeArray := ComObjArray(12, 2, 2)SafeArray[0, 0] := 5SafeArray[0, 1] := 4SafeArray[1, 0] := 3SafeArray[1, 1] := 2x := ComObjCreate("Excel.Application")x.visible := truebook := x.workbooks.addx.Range("A1:B2").value := SafeArray

案例二

; http://www.autohotkey.com/board/topic/5 ... ntry394713; http://www.autohotkey.com/board/topic/6 ... for-excel/var := "<varContent>"SafeArray := ComObjArray(VT_VARIANT:=12,3,1)SafeArray[0,0] := 10SafeArray[1,0] := varSafeArray[2,0] := """text"""x := ComObjCreate("Excel.Application")x.visible := truebook := x.workbooks.addx.Range("A1:A3").value := SafeArray

函数化

Excel_Put("A1","June 22 12:00 PM","AB",1,2,3,4,5,6,7,8,9,0,11) ; could be variables instead of static values; Excel_Put(Range, timeLog, initLog, meatLog, meatwiLog, wifLog, adfLog, bwiLog, dmcdLog, icnLog, icsLog, prodisLog, rifLog)Excel_Put(rng, values*){Xl := ComObjActive("Excel.Application")for key, value in valuesXl.Range(rng).Offset(key-1,0).Value := value }

阅读全文

0 0