删除指定文件夹中所有工作簿中的空白工作表

香川群子

yygpdkkk 发表于 2013-6-15 23:17
－－－－－－－－－－－－－－－

【本人接到过警告，上了附件则不得删除，故谢绝上附件。】

这个签名牛啊。

April100

yygpdkkk 发表于 2013-6-15 23:17
－－－－－－－－－－－－－－－

测试有用，赞........

xl6403

yygpdkkk 发表于 2013-6-15 23:17
－－－－－－－－－－－－－－－

If MsgBox("以本工作簿所在路径为默认文件夹吗？" _
            & vbNewLine & vbNewLine & "单击"否"可退出程序", vbYesNo, "确认默认路径") = vbYes Then
这句复制到VBA代码窗口显示为红字，不能执行下去。是何故？提示是：编释错误：语法错误。请问老师要如何处置？

xl6403

yygpdkkk 发表于 2013-6-15 23:17
－－－－－－－－－－－－－－－

我刚才再次测试了代码，能够运行下去，但却没有发生任何作用。执行过程先出现：


选择要删除空白工作表的文件夹后能继续运行，最后出现如下提示：


这时文件夹里的文件还在：


是什么原因呢？要如何解决？

王跃峰

张雄友 发表于 2013-6-15 22:21
功力不够深厚，编写了一个，出错。

Sub 查空表()
For Each myS In ThisWorkbook.Sheets
aa = Application.CountA(myS.Cells)
If aa = 0 Then
  MsgBox myS.Name & "工作表为空表"
  myS.Delete
Else
  MsgBox myS.Name & "工作表有 " & aa & "  个单元格有值"

End If

Next
End Sub

王跃峰

maditate 发表于 2013-6-15 22:36
Sub 查空表()
For Each myS In ThisWorkbook.Sheets
aa = Application.CountA(myS.Cells)

Sub 删除空表()
Application.DisplayAlerts = False
For Each myS In ThisWorkbook.Sheets
aa = Application.CountA(myS.Cells)
If aa = 0 Then
  myS.Delete
End If
Next
End Sub