學(xué)習(xí)Excel技術(shù)，關(guān)注微信公眾號(hào)：

excelperfect

Q：我有大約1000多個(gè)Excel文件(擴(kuò)展名為xlsx)，這些文件都只有1個(gè)工作表且具有相同的工作表結(jié)構(gòu)，我想在不打開(kāi)這些Excel文件的前提下刪除其工作表的第1至3行，如何快速實(shí)現(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ù)來(lái)獲取文件。只要不是代碼所在的Excel工作簿文件，將打開(kāi)該工作簿，執(zhí)行刪除第1至3行的操作，然后保存結(jié)果并關(guān)閉該工作簿。

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

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

代碼的圖片版如下：

總結(jié)

以上是生活随笔為你收集整理的qrp文件如何用excel打开_问与答66： 如何不打开Excel文件删除行？的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。