首页 > Excel专区 > Excel教程 >

如何不打开Excel文件删除行?

Excel教程 2022-01-07 22:11:34

Q我有大约1000多个Excel文件(扩展名为xlsx),这些文件都只有1个工作表且具有相同的工作表结构,我想在不打开这些Excel文件的前提下删除其工作表的第1至3行,如何快速实现?

A:可以使用下面的VBA代码:

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来删除行,但使用代码打开工作簿,执行操作,保存操作结果,然后关闭工作簿,让用户觉得根本没有打开过工作簿,这也是常用的技巧。


标签: Excel图表制作Excel常用函数excel数据透视表excel教程

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.