如何使用vb.net读取excel工作表的文本框(尝试使用uipath调用代码活动自动化一个过程)

Imports Microsoft.Office.Interop.Excel

Public Class ExcelTextBoxReader
    Public Sub ReadTextBoxesFromSheet(filePath As String, sheetName As String)
        Dim excelApp As New Application()
        Dim excelWorkbook As Workbook = excelApp.Workbooks.Open(filePath)
        Dim excelWorksheet As Worksheet = excelWorkbook.Sheets(sheetName)

        Dim textBoxes As New List(Of String)()

        For Each shape As Shape In excelWorksheet.Shapes
            If shape.Type = MsoShapeType.msoTextBox Then
                Dim textBox As TextBox = DirectCast(shape.OLEFormat.Object, TextBox)
                textBoxes.Add(textBox.Text)
            End If
        Next

        excelWorkbook.Close()
        excelApp.Quit()

        ' 处理读取到的文本框内容
        For Each textBoxText As String In textBoxes
            Console.WriteLine(textBoxText)
        Next
    End Sub
End Class