＋设为首页 ＋添加到收藏夹
我想写delphi语句，将Excel的几个单元格合并，请问这样的函数是什么，谢谢。
procedure TForm1.Button1Click(Sender: TObject);
var
SaveDialog : TSaveDialog ;
filename:string;
ExcelApp: TExcelApplication;
wkBook: _WorkBook;
wkSheet: _WorkSheet;
LCID: Integer;
begin
ExcelApp := TExcelApplication.Create(nil);
ExcelApp.Visible[0]:=true; //是否可视
ExcelApp.Connect;
LCID := GetUserDefaultLCID();
wkBook := ExcelApp.WorkBooks.Add(EmptyParam,LCID);
wkSheet := wkBook.Sheets[1] as _WorkSheet;
wkSheet.Activate(LCID);
with wkSheet.Range[wkSheet.Cells.Item[1, 3], wkSheet.Cells.Item[3, 3]] do
begin
ColumnWidth := 8; // 宽度
MergeCells := True; //合并单元格
WrapText := True; //自动换行
HorizontalAlignment := xlCenter; //对齐方式 xlleft,xlright
VerticalAlignment := xlCenter; //对齐方式 xltop,xlbottom
font.Bold:=true; //字体加重
font.Italic := True ; //斜体
font.Colorindex:=6; // 颜色
font.Name:=‘宋体‘; //字体
font.FontStyle := ‘常规‘ ;
font.Size:= 22; //大小
end;
wkSheet.Cells.Item[1, 3].value:=‘显示的字符串‘; //在该单元格显示的字符串
SaveDialog := TSaveDialog.Create(nil);
try
SaveDialog.Title := ‘输入文件名‘;
SaveDialog.Filter := ‘Microsoft Excel 工作薄|*.xls‘;
if SaveDialog.Execute then
FileName := SaveDialog.FileName
else
Exit;
finally
SaveDialog.Free;
end;
wkBook.Close(True, FileName, EmptyParam, LCID);//关闭并保存
ExcelApp.Quit;
ExcelApp.Disconnect;
end;
别忘了uses excel2000
Sheet.Range[Sheet.Cells[1, 1], Sheet.Cells[1, Col - 1]].Merge;
将第1行第1列到第1行第Col-1列,合并成一个单元格,
以上是在我的程序中的一个EXCEL合并语句!
