摘要:1 dim xls ,i,j 2 set xls = createObject("excel.application") 3 xls.visible = true 4 xls.caption = "测试" 5 xls.workbooks.add 6 for i = 1 to 9 7 for j = 1 to i 8 xls.cells(i,j).value =j &"×"&...
阅读全文
随笔分类 - vbs
摘要:'用Y()替换X()中的元素Dimx(2)Dimy(2)Dima(2)Dimcountx(0)=0x(1)=1x(2)=2y(0)=7y(1)=8y(2)=9Forcount=0To2x(count)=Replace(x(count),x(count),y(count))MsgBoxx(count)Next
阅读全文

浙公网安备 33010602011771号