vbs编写 的脚本,大家帮忙看一下错误原因
我想实现如下功能: 将某一文件下每一次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