如何使用VB.NET检查excel工作表名称中的特定文本？ （这段代码有什么问题？）

Question

我想实现以下目标，

我有一个excel文件，其中包含具有不同名称的工作表。一些表被命名为A1，A2，B1，B2，C1，C2等。

如果工作表名称包含“A”，则将A3：A70导出到名为“range.xlsx”的其他工作簿

如果工作表名称包含“B”，则将范围B3：B70导出到“range.xlsx”

如果工作表名称包含“C”，则将范围C3：C70导出到“range.xlsx”

任何帮助都将非常感激。

这就是我的尝试：

创建工作表名称列表并循环显示此列表以执行我想要执行的操作。

由于

Answer 1

未经测试的代码，但应该让你朝着正确的方向前进......

Dim wkbk As Excel.Workbook = ...
Dim regxp As New Regex("[abc]")
For Each wkst In wkbk.Worksheets
  If Not regxp.Match(wkst.Name) = "" Then
    ...
  End If
Next

Answer 2

我想，现在我知道如何处理这个问题了。显然，如果我可以创建所有excel工作表名称的列表，那么我将能够遍历此列表。我会尝试写它并发布它。

由于

Answer 3

以下代码有效。

Dim sheets As Excel.Worksheet
Dim slist As String = ""

For Each sheets In oWB1.Worksheets
slist += sheets.Name
Next

RichTextBox1.Text = slist

For i = 1 To num
If slist.Contains("C" & i) Then
'loops to export values
End If
Next

感谢。