vbs编写 的脚本,大家帮忙看一下错误原因

wybb3007 2012-04-20 12:21:48
我想实现如下功能: 将某一文件下每一次excel文件中的特点单元格的值,写入另外一个excel中, 下面是我写的代码。 此代码在执行后,能将第一个打开的excel中的文件内容写入excel中(执行几次也有不成功的),
小弟刚学 vbs,请大家 指教,歇息诶
Dim i
Dim j
Dim fs
Dim wj,mz,csgy,xkf,xg,fz,czwd,zlwd,cpfz,qt
Set fso =CreateObject("scripting.filesystemobject")
Set fd=fso.GetFolder("d:\test\")
Set fname=fd.Files
i=4
Set objexcel=CreateObject("excel.application")
objexcel.Workbooks.Add
Set zwbook=objexcel.Workbooks.Open("D:\测试人员工作量统计.xls")
For Each file In fname
fs=file.Name
wj="d:\test\" &fs&""
MsgBox wj

Set wbook=objexcel.Workbooks.Open(wj)
Set wsheet = wbook.Sheets(1)

j=1
mz=wsheet.range("b7").value
MsgBox mz
csgy=wsheet.range("f7").value
xkf=wsheet.range("f8").value
xg=wsheet.range("f9").value
fz=wsheet.range("f10").value
czwd=wsheet.range("f11").value
zlwd=wsheet.range("f12").value
cpfz=wsheet.range("f13").value
qt=wsheet.range("f14").value


'Set zwsheet = zwbook.Sheets(1)
objexcel.Cells(i,j).value =mz
j=j+1
objexcel.Cells(i,j).value =fs
j=j+1
objexcel.Cells(i,j).value =csgy
MsgBox objexcel.Cells(i,j).value
j=j+1
objexcel.Cells(i,j).value =xkf
j=j+1
objexcel.Cells(i,j).value =xg
j=j+1
objexcel.Cells(i,j).value =fz
j=j+1
objexcel.Cells(i,j).value =czwd
j=j+1
objexcel.Cells(i,j).value =zlwd
j=j+1
objexcel.Cells(i,j).value =cpfz
j=j+1
objexcel.Cells(i,j).value =qt
MsgBox i
MsgBox j
i=i+1
j=1
MsgBox j
Next


...全文
83 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

4,008

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧