¡¡¡¥»¥ë¤ÎÉý/¹â¤µ¤ÎÊѹ¹
¢¡¡¥¨¥¯¥»¥ë¾å¤Îʸ»ú¥Õ¥©¥ó¥È¤ÎÊѹ¹
£¡¡¥ª¥Ö¥¸¥§¥¯¥È¤Î½ñ¼°Êѹ¹(¿Þ·ÁÅɤê¤Ä¤Ö¤·¿§Ž¤ÏÈÀþ)
¡¡¡¡
newcom xlApp, "Excel.Application" xlApp("visible") = 1 xlApp("displayalerts") = 0 xlBooks = xlApp("workbooks") xlBook = xlBooks("Add") xlSheet = xlBook("Worksheets","sheet1") Shapes= xlSheet("Shapes") Shapes -> "AddShape" 1, 80, 130, 40, 50 Shapes -> "AddShape" 1, 120, 130, 40, 50 Shapes -> "AddShape" 1, 160, 130, 40, 50 Shapes -> "AddShape" 1, 200, 130, 40, 50 xlSheet("Range","B1") = "¢«ÉýÊѹ¹¢ª" xlSheet("Range","B2") = "¢¬¹â¤µÊѹ¹¢" end