Office中国论坛/Access中国论坛

标题: 跪求工作簿关闭后删掉的问题,谢谢 [打印本页]

作者: kathy123456 时间: 2007-4-23 02:04
标题: 跪求工作簿关闭后删掉的问题,谢谢
我写了一段程序希望实现如下功能:

我有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

作者: 方漠 时间: 2007-4-23 17:10
Kill "D:\YourWorkbookPath\F1.xls"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)