Delphi 修改Excel 中文本框内容
首先看一下Excel中录制的宏代码吧
Sub Macro1()
'
' Macro1 Macro
' 宏由 HFBiao 录制，时间: 2010-5-15
'
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = "55555555555555555555555555"
With Selection.Characters(Start:=1, Length:=26).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("H17").Select
End Sub
只能先这么说了， Delphi 不等于 VB ， 不要太相信录制的宏代码，因为它们不是为Delphi准备的。而我之前却是没有这般认识的。
先看宏代码
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = "55555555555555555555555555"
这是选择了一个文本框后变更内容的代码，将它翻译成Delphi 中应该下面这样的
asheet:=FExcelapplication.Sheets.Item[1];
asheet. Shapes['Text Box 1'].Characters.Text = "55555555555555555555555555";
执行它，提示找不到成员，换用序号表示
asheet:=FExcelapplication.Sheets.Item[1];
asheet.Shapes[1].Characters.Text = "55555555555555555555555555";
执行，还是提示找不到成员，这下就有点晕了。
寻找 Excel VB 的帮助，发现如下：
Shapes 集合用法
可用 Shapes 属性返回 Shapes 集合。下例选定 myDocument 上的所有图形。
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
注释 如果要同时对工作表上的所有图形进行某项操作（例如删除或设置属性），请选定所有图形，然后对选定区域应用 ShapeRange 属性以创建一个包含工作表上所有图形的 ShapeRange 对象，然后对 ShapeRange 对象应用适当的属性或方法。
可用 Shapes(index) （其中 index 是图形的名称或索引号）返回单个的 Shape 对象。下例设置 myDocument 上第一个图形的预设阴影的填充。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientBrass
-------------------------帮助引用完成--------------------------
用Delphi 去操作Excel ，那帮助也是不可全信的，还是那句话，因为它们不是为Delphi准备的。
可用 Shapes(index)（其中 index 是图形的名称或索引号）返回单个的 Shape 对象。
在帮助中用 Shapes(index) 返回单个对象，却在Delphi 中是不行的。
继续查帮助，发现 Shapes 中有 Item 方法。 在这时，我想我是应该找到了。
更改 Delphi 代码
asheet:=FExcelapplication.Sheets.Item[1];
MyShape:= asheet.Shapes.Item[1];
//asheet.Shapes[1].Characters.Text = "55555555555555555555555555";
代码成功执行，尝试提取对像 ID号
asheet:=FExcelapplication.Sheets.Item[1];
MyShape:= asheet.Shapes.Item[1];
ShowMessage(IntToStr(MyShape.ID));
代码成功执行,ID号显示，这说明单个的Shape对象是己经取到了，剩下来的就应该简单了。
可事实并不像想像中的那么简单！
更改 Delphi 代码
asheet:=FExcelapplication.Sheets.Item[1];
MyShape:= asheet.Shapes.Item[1];
MyShape.Characters.Text = "55555555555555555555555555";
执行 ,
报错 Method 'Characters' not supported by automation object , Characters 竟不支持。这是再次证明了录制出来的宏是不能信的。只得乖乖的去找帮助了。
查找 Shape 对像的属性 ,发现有 TextFrame 属性，TextFrame 属性 返回 TextFrame 对象
以下为 TextFrame 对象的定义
代表 Shape 对象中的文本框。包含文本框中的文字，也包含用于控制文本框的对齐方式及位置的属性和方法。
看到这个，我是有点激动了，我知道好运己降临到我身上。
更改 Delphi 代码
asheet:=FExcelapplication.Sheets.Item[1];
MyShape:= asheet.Shapes.Item[1];
MyShape.TextFrame.Characters.Text = "55555555555555555555555555";
执行成功。
总结下吧。
- 在Excel 中录制的宏不可全信
- 帮助也不可全信
- 以上两点只针对用 Delphi 去操作Excel时成立，因为那些都不是为Delphi而准备的
- 每天至少要睡6小时，不要熬夜。因为这些都是我在睡一觉之后的第二天才弄出来的，在第一天是怎么都出不来。
- 不会时多问，上网找，可千万不要像我这样弄了四个多小时整出来，人生没多少四小时的。不过我是没人可问，在网上搜了N多遍也找不到答案的情况下，才自己动手的了。不过自己做出来会很高兴的。
- 信念很重要，永不放弃！（在第一天时，我对这个问题基本是处于绝望的境地了）