主题：向excel中文本框加文字出错

参考代码

Dim App As New MSExcel.Application

Dim jbwork As MSExcel.Workbook = App.WorkBooks.Open( "C:\Users\dv rrxaI600 007\Downloads\脊背.xls") 
jbwork.Sheets(1).shapes.Range("TextBox 35").Select
app.Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "123"
App.Visible = True