向excel中文本框加文字出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 向excel中文本框加文字出错

共有1781人关注过本帖树形打印复制链接主题：向excel中文本框加文字出错

hpbcfmqr

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：1196 威望：0 精华：0 注册：2017/10/8 12:29:00

向excel中文本框加文字出错 发帖心情

Post By：2019/3/24 19:26:00 [只看该作者]

'''

Dim App As New MSExcel.Application

App.Visible = True

Dim jbwork As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "脊背.xls")

Dim LBL As MSExcel.Shape

LBL = jbwork.Sheets(1).Shapes(1)

Dim hd As Integer=6

'MsgBox "提示：在总归档目录完成后做脊背，可以一次打印多条脊背"

Dim wd As Double

Dim gd As Double

wd = 42.5281142 / 1.5 * hd

gd = 42.5281142 / 1.5 * 11.5

LBL.Width = wd

LBL.Height = gd

'下面这两行代码出错

LBL.TextFrame2.TextRange.Characters.Text ="G69银川至百色高速公路广西百色至靖西段国家发改委、交通运输厅、国土资源厅、环境保护局、林业局等下发的关于本项目的立项、审批批复文件" ' ajtm

LBL.TextFrame2.TextRange.Characters.Font.Size = 15

hpbcfmqr

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：1196 威望：0 精华：0 注册：2017/10/8 12:29:00

Post By：2019/3/24 19:27:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:脊背.xls

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/24 21:50:00 [只看该作者]

参考代码

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

下一主题 >> << 上一主题

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