Dim App As New MSExcel.Application
Try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\问题\123.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For Each a As Object In Ws.Shapes
If a.Type = Microsoft.Office.Core.MsoShapeType.msoTextBox AndAlso a.TextFrame2.TextRange.Text > "" Then
Output.Show(a.TextFrame2.TextRange.Text)
End If
Next
Wb.Close
App.quit
Catch ex As Exception
MsgBox(ex.Message)
App.quit
End Try
[此贴子已经被作者于2023/10/9 12:02:37编辑过]