Delphi与Excel的编程学习

昨天下午，群里有个朋友问了这么一个问题。

问题：如何用Delphi来对Excel中某个单元格中的部分字符进行格式化。

此类的资料几乎在网上绝种，反正我是没有找到，MSDN，各大论坛都是没有找到，从昨天下午找这类资料一直到现在(不包括睡觉3小时，打游戏8小时,看电影4.5小时,HOHO,看得偶真得把这该死的游戏放一放了)，就是没有找到一要点儿关于此问题的资料，无意中，进了百度的VBA贴吧，看到了很多人问什么VBA编程啊，Excel操作之类的，突然灵光一现，我何不用Excel的宏录制功能来帮我完成这些资料呢，于是，我启动了Excel，在A2单元格内输入了"中国中国",然后再开始录制宏,然后选定后面的中国两字，进行字体修改操作，停止录制宏。然后对刚刚录制的宏进行编辑，看到的代码令我开心。

Sub Macro1()
'
' Macro1 Macro
' 宏由 MopeBoy 录制，时间: 2005-11-17
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "中国中国"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=3, Length:=2).Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B2").Select
End Sub

于是乎，我就将此代码转为delphi的代码,如下:

procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelApplication1.Workbooks.Open('d:/test.xls', null, null, null, null, null, null, null, null, null, null, null, null, null, null, 0);
ExcelApplication1.Visible[0] := true;
ExcelApplication1.Range['A2', 'A2'].Select;
with ExcelApplication1.ActiveCell.Characters[2, 2].Font do
begin
Name := '宋体';
FontStyle := '加粗';
Size := 12;
Strikethrough := False;
Superscript := False;
Subscript := False;
OutlineFont := False;
Shadow := False;
Underline := xlUnderlineStyleNone;
ColorIndex := xlAutomatic;
end;
end;

此次学习是个意外的收获，也让我体会到，很多时候学习不能死钻，得巧夺。 ^_^

吃饭去先

2006年3月14日

今天群里有人提出这么一个问题：excel单元格数据为数字，如何判断单元格长度小于数字的长度？
我自己感觉，Excel的VBA应该直接提供这样的方法或是函数的，但苦于找不到相关资料只有用最愚蠢的办法来实现了。 :(

uses ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyExcel: OleVariant;
TableLen, TextLen: Integer;
begin
MyExcel := CreateOleObject('Excel.Application.11');
MyExcel.Workbooks.Open('d:/test.xls');
// MyExcel.Visible := True;
MyExcel.Range['A7', 'A7'].Select;
TableLen := MyExcel.Range['A7', 'A7'].Width;
MyExcel.Selection.Copy;
MyExcel.Range['FF999'].Select;
MyExcel.ActiveSheet.Paste;
MyExcel.Columns['FF:FF'].EntireColumn.AutoFit;
TextLen := MyExcel.Range['FF999'].Width;
MyExcel.CutCopyMode := False;
MyExcel.Selection.ClearContents;
MyExcel.Range['A7', 'A7'].Select;
if TableLen < TextLen then ShowMessage('内容比表格宽');
MyExcel.Quit;
MyExcel := Null;
end;

2006-03-16

昨天在外面跑了一天，今天回到公司，一开群，问此问题的人今天还在问，郁闷，看到这样的人心寒啊，不过偶今天做了仔细的测试来验证我14号的一个想法：当一个单元格的宽度比要显示的宽度小时，会将单元格显示成‘#####’之类的，那么我就想，对单元格进行格式化等操作也会导致显示值与真实值不同，也就是说，一个单元格可能有多个值，但14号由于我把单元格搞得太宽，就没有验试出这样的结论，今天把单元格调小后得到了此结论是正确的。代码如下

TO ABC
uses ComObj;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MyExcel: OleVariant;
ViewText: string;
begin
MyExcel := CreateOleObject('Excel.Application.11');
MyExcel.Workbooks.Open('d:/test.xls');
MyExcel.Visible := True;
ViewText := MyExcel.Range['A7', 'A7'].Text;
if Copy(ViewText, 0, 1) = '#' then ShowMessage('表格宽度不够');
MyExcel.Range['A7', 'A7'].Value := '1980-09-25'; //为A7单元格赋值
MyExcel.Range['A7', 'A7'].Select; //选定A7单元格
MyExcel.Selection.NumberFormatLocal := 'yyyy""-""m""-""d;@'; //为指定的单元格指定格式
//默认格式下，日期格式就是 'yyyy""-""m""-""d;@'
MyExcel.Quit;
MyExcel := Null;
end;