批量删除多个excel中的指定行

mi1213a · 发表于 2016-8-22 15:50

想删除d盘目录下面所有Excel的1到16行，用vb
Sub test()
Application.ScreenUpdating = False
p = "d:\test\"
f = Dir(p & "*.xls")
Do While f <> ""
Set w = Workbooks.Open(p & f)
w.Sheets(1).Rows("1:16").Delete
w.Close True
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "结束"
End Sub

运行结束后发现只有第偶数个表进行了删除操作，第奇数个的表没有变化是为什么呢。。

mi1213a · 发表于 2016-8-22 15:56

来个大神啊

mi1213a · 发表于 2016-8-22 16:01

好吧自己研究好了。。原来是f = Dir(p & "*.xls") 这个定义的问题。。

hzkjdxlh · 发表于 2016-8-22 16:13

mi1213a 发表于 2016-8-22 16:01
好吧自己研究好了。。原来是f = Dir(p & "*.xls") 这个定义的问题。。

你自己就是大神么~

Vujacici · 发表于 2016-8-23 08:48

正确的定义是什么？学习下。

晚秋枫叶 · 发表于 2024-2-18 13:49

mi1213a 发表于 2016-8-22 16:01
好吧自己研究好了。。原来是f = Dir(p & "*.xls") 这个定义的问题。。

那要怎么改动呢？可以请教一下么急

白胖二 · 发表于 2024-2-18 14:59

必须仰视一下！

joy.008@163.com · 发表于 2024-2-18 15:03

看不到你的文件所以只能猜
f = Dir(p & "*.xls*")
改成这样试一下

		自动登录	找回密码
密码			免费注册

[求助] 批量删除多个excel中的指定行