跪求工作簿关闭后删掉的问题,谢谢

kathy123456

我写了一段程序希望实现如下功能:

我有3个工作簿,f1,f2,f3

每个工作簿就一张表:sheet1

在有的表的H2单元格会填充内容,有的就是0.

这段程序就是判断 如果这个工作簿的工作表里H2单元格不为0,就保存并关闭这个工作簿,这个功能一下程序可以实现

sub tt()

for i =1 to 3

workbooks("f" & i &".xls").activate

if range("H2")<>"0" then

workbooks("f" & i &".xls").save

workbooks("f" & i &".xls").close false

end if

next i

end sub



运行了这个程序以后如果H2 不为0的工作簿都关闭了

我希望能把关闭了的工作簿删掉请问如何写程序呢 我这样写会报错

sub tt()

for i =1 to 3

workbooks("f" & i &".xls").activate

if range("H2")<>"0" then

workbooks("f" & i &".xls").save

workbooks("f" & i &".xls").close false

kill workbooks("f" & i &".xls")                   <---这个地方会显示越界 用workbooks("f" & i &".xls") .delete 也不行

end if

next i

end sub



希望各位大侠多多赐教!xiexie

方漠

Kill "D:\YourWorkbookPath\F1.xls"