excel能翻译英语吗
530
2022-10-19
如何不打开Excel文件删除行?
Q:我有大约1000多个Excel文件(扩展名为xlsx),这些文件都只有1个工作表且具有相同的工作表结构,我想在不打开这些Excel文件的前提下删除其工作表的第1至3行,如何快速实现?
Sub DeleteRows()
Dim FilePath As String
Dim fFile As String
Dim fName As String
Dim WB As Workbook
‘获取文件夹路径
FilePath = ActiveWorkbook.Path
fName = ActiveWorkbook.Name
‘添加反斜杠
If Right$(FilePath, 1) <> “\” Then
FilePath = FilePath & “\”
End If
‘获取文件
fFile = Dir(FilePath & “*.xlsx”)
‘遍历文件夹中的文件
Do While fFile <> “”
‘忽略当前工作簿
If fFile <> fName Then
Set WB = Workbooks.Open(FilePath& fFile, UpdateLinks:=0)
ActiveWorkbook.Sheets(1).Rows(“1:3”).Delete Shift:=xlUp
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
fFile = Dir
Loop
End Sub
在代码中,使用Dir函数来获取文件。只要不是代码所在的Excel工作簿文件,将打开该工作簿,执行删除第1至3行的操作,然后保存结果并关闭该工作簿。
注意,代码默认所要操作的工作簿与代码所在的工作簿在同一文件夹中。
虽然要求不打开Excel来删除行,但使用代码打开工作簿,执行操作,保存操作结果,然后关闭工作簿,让用户觉得根本没有打开过工作簿,这也是常用的技巧。
版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。