用VBA实现批量删除指定文件夹下工作表表头，如图所示，删除前与删除后效果。

但在运行时出错

(文件夹内工作薄模拟了上报的数据，只能保证结构相同，数据质量得不到保证，要求在这种情况下运行)，请各位高手帮我看看代码错在哪儿？

补充内容(2015-7-30 15:32:23):

Sub deleteheadline()

Dim Fso As Object, Folder As Object

Dim i&, n&, a, b, Wb As Workbook, p$

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = ThisWorkbook.Path & "\"

If .Show = False Then Exit Sub

p = .SelectedItems(1)

End With

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set Fso = CreateObject("Scripting.FileSystemObject")

With ThisWorkbook

For Each File In Fso.GetFolder(p).Files

If File.Name Like "*.xls" Then

n = n + 1

Set Wb = Workbooks.Open(File)

Application.DisplayAlerts = False

If ThisWorkbook.MultiUserEditing Then

ThisWorkbook.UnprotectSharing ("")

End If

Application.DisplayAlerts = True

Wb.Unprotect

Wb.Sheets("基本情况(填表)").Unprotect

Wb.Sheets("基本情况(填表)").Rows("1:4").delete

Wb.Close False

End If

Next

End With

Set Fso = Nothing

Application.ScreenUpdating = True

MsgBox "表头已删除!"

End Sub

补充内容(2015-7-30 15:33:13):

前景提要

昨天我们学习了一下批量删除空白工作表的方法，那么自然工作表的删除就没有任何的问题了，不过有时候当我们通过VBA批量删除工作表数据的时候，可能会碰到一个问题，一时兴起把一些主要的工作表数据删除了，这就非常的尴尬了，我们都知道VBA操作的不可逆，所以我们在进行批量工作表删除的时候，要留意一些关键工作表数据的保护，so，如何实现呢？

场景说明

这是我们之前使用过的工作表，我们这里有很多个工作表

当我们完成了数据的汇总和整理之后，我们现在只需要保留总表这个工作表就可以了， 所以我们按照之前的VBA代码打算将除去总表以外的其他的所有的工作表都删除，但是我们注意到其中有一个标红的工作表，是考核标准，这个工作表数据是不能删除的，因为后续的考核都是要用这个表的，但是如果用VBA代码去删除工作表就会把这个表一起删除，因为他的名字不等于“总表”那么怎么办呢？

代码区

其实今天的方法比较的直接，并不算是一个最好的方法，但是我们的初衷就是要实现效果，得到目的就可以了。 来看看代码

Private Sub Worksheet_BeforeDelete()

ActiveWorkbook.Protect "床前明月光"

MsgBox "此工作表禁止删除"

On Error Resume Next

Exit Sub

End Sub

是的，我们今天的代码是写在考核标准这个工作表的里面的，并不是写在模块中的

这样的目的是什么呢？就是在执行删除操作之前，执行一个操作，制造一点小麻烦，让删除程序没有办法顺利的进行。我们来看看效果

当程序开始的时候，其他的 工作表都已经被删除完毕了，但是当删除到考核标准这个工作表之后，我们发现他并没有被删除，反而弹出了一个窗口，提示我们这个工作表禁止删除

点下确定呢？

不好意思，工作表被保护了，这个工作表你应该是删除不了了。所以只能结束程序了，重新调试删除的程序代码了。

这样就间接了实现了对工作表的保护，禁止对方随意的删除你的工作表。

代码分析

今天我们的方法是强制在工作表被删除之前，将整个工作薄进行密码保护起来，这样就禁止了对方进一步删除我们的工作表，破坏了VBA删除代码的顺利进行，从而从侧面实现了禁止删除工作表的效果。

我们来今天的代码

其实知识点也是很简单，工作表的保护

ActiveWorkbook.Protect "****"'*代表你要输入的密码

实际上也就是通过给工作薄上锁的方式，来阻止VBA代码肆意的删除工作表，从而达到保护工作表的效果和目的

虽然实现了效果，但是感觉方法并不是最优的，不知道小伙伴们还有没有更好的办法呢？

看着标题估计会有点乱，下面我们以图文的方式来和大家说明，本例子要实现的最终结果！

首先看下图，注意，在相同的文件夹内，有一个工作薄的名称为“合并数据.xls”，其它的工作薄呢，有很多个，并且，有几个也不知道，我们姑且认为有X个其它的工作薄吧，并且，这些工作薄的名称也是没有任何规律的。

现在，我们要做的就是，要把这X个工作薄中的Sheet1这个工作表里面的数据复制了之后，粘贴到“合并数据.xls”这个工作薄的相应的表里面。

简单的说，就是要把工作薄1里面的Sheet1的内容粘贴到“合并数据.xls”中的一个工作表里面，同样，工作薄2里面的Sheet1的内容粘贴到“合并数据.xls”中的一个工作表里面，依此类推，工作薄3里面的Sheet1的内容粘贴到“合并数据.xls”中的一个工作表里面……，介绍只能介绍到这里了，如果你连这种逻辑关系都无法理解，那么说明，理解能力真的只适合学文科背诵，不适合学习VBA。

好了，实现方法如下，把“合并数据.xls”工作薄打开，然后添加一个如下图的按钮控件，按钮控件的标签文字可自行修改。

最后一步，就是添加VBA代码了，如下图，这是第一部分代码，是通用代码。

接着，就是功能代码了，如下图。

上面的代码，添加到按钮控件上。相关的代码功能的解释，已在图上注明，在此就不再阐述了。

最后，给大家说明的是，每次合并数据的时候，你把“合并数据.xls”打开，然后，只保留Sheet1这个工作表，其余的全部删除。这样才能正确使用，否则会导致代码错误。因为功能还未全部完善，只因本人没时间完善了。