qrp文件如何用excel打开_问与答66： 如何不打开Excel文件删除行？

学习Excel技术，关注微信公众号：

excelperfect

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

代码的图片版如下：