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

Question

I want to achieve following,

I have an excel file that contains worksheets with different names. Some of the sheets are named as A1, A2, B1, B2, C1, C2 etc.

If the sheet name contains "A" then export A3:A70 to a different workbook called "range.xlsx"

If the sheet name contains "B" then export range B3:B70 to "range.xlsx"

If the sheet name contains "C" then export range C3:C70 to "range.xlsx"

Any help will be really appreciated.

This is what I tried:

Created a list of sheet names and looped through this list to do what I want to do.

Thanks

Answer 1

Untested code, but should get you going in the right direction...

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

I think, now I know how to deal with this issue. Apparently, if I can create a list of all excel worksheet names then I will be able to loop through this list. I will try to write it and post it.

Thanks

Answer 3

Following code works.

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

Thanks.