- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 向excel中文本框加文字出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132546)
-- 发布时间：2019/3/24 19:26:00
-- 向excel中文本框加文字出错
\'\'\'
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
-- 发布时间：2019/3/24 19:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:脊背.xls |
-- 发布时间：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