"UWSCについて"で記載させていただいた内容を少し詳細に書いていきますね。
例えば、Excel行挿入マクロです。
Excel改行挿入_loop_test.UWS
//CALL ExcelConst.uws
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.add()
SLEEP(5)
//元のファイルを開く
KBD(VK_ALT,DOWN,32)
KBD(VK_TAB,DOWN,32)
KBD(VK_ALT,UP,32)
KBD(VK_TAB,UP,32)
//EXCEL.activeworkbook.worksheets.add()
//最終行
//row=EXCEL.Row.Cells(activesheet.Rows.Count, 1).End(xlUp).Row
//row=EXCEL.ActiveSheet.Cells(EXCEL.ActiveSheet.Rows.Count, 1).End(-4162).Row
//row=EXCEL.ActiveSheet.ActiveCell.Row
//最終行
//row=EXCEL.ActiveCell.End(-4121)
//最終行
KBD(VK_SHIFT,DOWN,40)
KBD(VK_CTRL,DOWN,32)
KBD(VK_DOWN,DOWN,40)
row=EXCEL.ActiveCell.Row
PRINT "下終端：" + row
//row=EXCEL.ActiveCell.Row
//PRINT row
FOR i = 0 TO (row)
KBD(VK_F2,CLICK,40)
KBD(VK_ALT,DOWN,40)
KBD(VK_RETURN,DOWN,40)
KBD(VK_ALT,UP,40)
KBD(VK_RETURN,UP,0)
KBD(VK_RETURN,CLICK,40)
NEXT
SLEEP(5)
//新規ファイルを閉じる
KBD(VK_ALT,DOWN,32)
KBD(VK_F4,DOWN,32)
KBD(VK_ALT,UP,32)
KBD(VK_F4,UP,32)
