本文介绍了如何在Delphi程序中调用Excel宏，以便在Excel单元格中实现换行。通过创建并运行名为'Macro1'的宏，将字符串连接并插入换行符，实现了在特定单元格中的内容换行。Delphi代码示例展示了如何传递参数到宏并执行。
excel单元格中要显示 换行的字符串，没有找到直接的方法，所以通过调用宏来实现
宏：
Sub
Macro1(var1
As
String
, var2
As
String
)
'
'
Macro2 Macro
'
宏由 liuin 录制，时间: 2007-10-26
'
ActiveCell.FormulaR1C1
=
var1
+
Chr
(
10
)
+
var2
End Sub
delphi中调用
MySheet.Range['D13'].select;
xlapp.run('macro1','100以上'+qry1.Fields[0].AsString+'台','80以下'+qry1.Fields[1].AsString+'台');
完整代码：
function TFrmDBCZ_JH_FIND.Gen_BYQTSJBS(date:
string
): Boolean;
//
变压器台数及表数
var
j:Integer;
begin
filename :
=
ExtractFilePath(Application.ExeName)
+
'
报表模版变压器台数及表数.xls
'
;
savefile :
=
ExtractFilePath(Application.ExeName)
+
'
报表'+copy(date,1,4)+
'
年
'
+copy(date,6,2)+
'
月变压器台数及表数.xls
'
;
if
FileExists(savefile) then
begin
if
not DeleteFile(savefile) then
宏：
Sub
Macro1(var1
As
String
, var2
As
String
)
''
Macro2 Macro
'
宏由 liuin 录制，时间: 2007-10-26
'
ActiveCell.FormulaR1C1
=
var1
+
Chr
(
10
)
+
var2
End Sub
delphi中调用
MySheet.Range['D13'].select;
xlapp.run('macro1','100以上'+qry1.Fields[0].AsString+'台','80以下'+qry1.Fields[1].AsString+'台');
完整代码：
function TFrmDBCZ_JH_FIND.Gen_BYQTSJBS(date:
string
): Boolean;
//
变压器台数及表数
var j:Integer;begin filename :
=
ExtractFilePath(Application.ExeName)
+
'
报表模版变压器台数及表数.xls
'
; savefile :
=
ExtractFilePath(Application.ExeName)
+
'
报表'+copy(date,1,4)+
'
年
'
+copy(date,6,2)+
'
月变压器台数及表数.xls
'
;
if
FileExists(savefile) then begin
if
not DeleteFile(savefile) then
最低0.47元/天 解锁文章
扫一扫
3469
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
