excel宏命令的问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 16:26:43
由于excel文件过多，在修改的时候太麻烦，于是就录制了一个个人宏，在打开一个要修改的excel文件后，运行这个宏可以对这个文件修改后并自动保存，但由于文件太多，这样每修改一个就打开一下并关闭，也还是很麻烦，能不能在我这个宏里边再加入一些语句让它自动打开同一个目录下的所有文件修改后并自动关闭呢？请高手给一个解决方法！谢谢

sub 处理()
dim FN$, MyPath$
Mypath = thisworkbook.path & "\"
fn = dir( Mypath & "*.xls")
do until fn = ""
if fn = thisworkbook.name then goto 20
run "你的程序" '或者，将你的程序复制到此
20 fn = dir
loop
end sub