【练习-057】vbs生成excel工作表并写入指定内容

batman

出题目的：
　　让大家初步接触并了解vbs对excel的操作方法
加分原则：
　　满分10分
题目如下：
　　用vbs在当前目录生成test.xls，并向工作表的c3:f10中写入所在的行列数(以空格格开)，如单元格为d8则写入
8 4。

batman

楼上的是不是看错题意了，要求是向工作表的c3:f10范围内写入数字，不是只写入两个单元格中。。。

获取本地路径个人习惯用path=createobject("wscript.shell").currentdirectory&"\"

[ 本帖最后由 batman 于 2010-1-6 17:06 编辑 ]

batman

今天才知道能根据给定单元格范围输入，以前都是用两个for来完成的。。。

batman

obj.columns ="=CONCATENATE(ROW(),"" "",COLUMN())"
巧妙地利用了excel本身的查找引用函数，但可以简化修改为obj.columns ="=ROW()&"" ""&COLUMN()"

[ 本帖最后由 batman 于 2010-1-6 18:41 编辑 ]

batman

简化4楼代码如下：

Set oexcel=CreateObject("excel.application")
oexcel.Workbooks.Add()
oexcel.Range("C3:F10").columns ="=ROW()&"" ""&COLUMN()"
oexcel.ActiveWorkbook.SaveAs(createobject("wscript.shell").currentdirectory&"\test.xls")
oexcel.Quit
复制代码

[ 本帖最后由 batman 于 2010-1-6 19:01 编辑 ]

batman

路径不对，在上级目录生成了"本级目录名a.xls"

同时前面的截取是不是显得过于复杂，其实你直接3 to 10,3 to 6就可以了啊

batman

本人的解：

dim counter1,counter2
set objexcel=createobject("excel.application")
objexcel.workbooks.add
for counter1=3 to 10
    for counter2=3 to 6
        objexcel.cells(counter1,counter2).value=counter1&" "&counter2
    next
next
objexcel.activeworkbook.saveas(createobject("wscript.shell").currentdirectory&"\test.xls")
objexcel.quit
set objexcel=nothing 
复制代码