Q：我有大約1000多個Excel文件（擴展名為xlsx），這些文件都只有1個工作表且具有相同的工作表結(jié)構(gòu)，我想在不打開這些Excel文件的前提下刪除其工作表的第1至3行，如何快速實現(xiàn)？

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 <> “”

‘忽略當(dāng)前工作簿

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函數(shù)來獲取文件。只要不是代碼所在的Excel工作簿文件，將打開該工作簿，執(zhí)行刪除第1至3行的操作，然后保存結(jié)果并關(guān)閉該工作簿。

注意，代碼默認(rèn)所要操作的工作簿與代碼所在的工作簿在同一文件夾中。

雖然要求不打開Excel來刪除行，但使用代碼打開工作簿，執(zhí)行操作，保存操作結(jié)果，然后關(guān)閉工作簿，讓用戶覺得根本沒有打開過工作簿，這也是常用的技巧。