删除带有名称标准的 Excel 表格

Question

正确的代码是

        Private Sub DeleteTSheets()
        Dim xl As New Excel.Application
        Dim wb As Excel.Workbook
        Dim ws as Excel.Worksheet
        wb = xl.Workbooks.Open("C:\Patches\Main_Final.xlsm")
        For Each ws in wb.sheets
           If InStr(1, ws.Name, "T") Then
              If len(ws.name)=3 then
                   ws.delete()
              End If
           End If
        Next
       wb.Close(Savechanges:=vbTrue)
       End Sub

只有当我从 excel 表中删除所有宏时，代码才会运行！！！

谢谢，问候 莫赫布拉比布

Answer 1

在第一个代码中，尝试将If InStr(1, wb.Sheets(i).Name, "T") Then 行替换为

If InStr(1, wb.Sheets(i).Name, "T") > 0 Then

在您开发的代码中，尝试将 If InStr(1, wb.Sheets(i).Name, "T") Then 行替换为

If InStr(1, ws.Name, "T") > 0 Then

请记住，您正在循环使用 ws 而不是 i

Answer 2

从根本上说，对于整数循环，使用 For 而不是 Do 循环并在没有 On Error 重定向的情况下处理代码逻辑。此外，由于您的第二个代码实现有效，因此您的主要问题是将 VBA 和 VB.Net 混为一谈。尽管它们共享相同的结构，但这两种语言是根本不同的语言。 VBA 是 MS Office 应用程序的扩展实用程序，而 VB.Net 是具有 .NET 兄弟 C# 的独立通用语言。

因此，您无法在这两种类型之间准确地复制/粘贴代码。 VBA 和 VB.Net 的主要区别在于初始化 COM 对象Excel.Application。 VB.Net（如 C#）需要在 Microsoft.Office.Interop API 中进行采购。

VBA

Dim xl As New Excel.Application

VB.Net（见docs）

Imports Microsoft.Office.Interop
...

Dim xl As Excel.Application = New Excel.Application()

---

C#（参见docs）（作为比较）

using Excel = Microsoft.Office.Interop.Excel;
...

var xl = new Excel.Application();

---

此外，由于 COM (Command Object Model) 不仅限于 Microsoft 工具，而是 Windows 机器上的可用资源，因此其他与 COM 连接的语言（如开源工具）也可以连接到 Excel。请注意，与 VB.Net 和 C# 一样，必须导入相应的 COM 库（PHP 以 .ini 扩展名这样做）。

Python

import win32com.client as COM

xl = COM.Dispatch("Excel.Application")

R

libray(RDOMClient)

xl <- COMCreate("Excel.Application")

PHP

$xl = new COM("Excel.Application", NULL, CP_UTF8) or Die ("Did not instantiate Access");