如何使用VB.NET检查Excel工作表名称中的特定文本? (这个代码有什么错误?)
我想实现以下,
我有一个包含不同名称的工作表的Excel文件。 一些表被命名为A1,A2,B1,B2,C1,C2等
如果工作表名称包含“A”,则将A3:A70导出到另一个名为“range.xlsx”的工作簿
如果工作表名称包含“B”,则将范围B3:B70导出到“range.xlsx”
如果工作表名称包含“C”,则将范围C3:C70导出到“range.xlsx”
任何帮助将非常感激。
这是我试过的:
创build了一个表格名单,并通过这个列表循环做我想做的事情。
谢谢
未经testing的代码,但应该让你朝着正确的方向前进…
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
我想,现在我知道如何处理这个问题。 显然,如果我可以创build一个所有Excel工作表名称的列表,那么我将能够遍历这个列表。 我会尝试写它并发布。
谢谢
以下代码作品。
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
谢谢。