请问高手:在delphi中怎样将Excel单元格合并? 我想写delphi语句,将Excel的几个单元格合并,请问这样的函数是什么,谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 能够提供给你 一段代码来确定excel 中到底使用哪些行、哪些列!~~~b_filedCount :=eclApp.ActiveSheet.UsedRange.columns.Count;//返回excel 表中的列数b_row :=eclApp.activesheet.UsedRange.rows.count; //返回excel 表中的行数 关注,我也正在研究excel的问题 procedure TForm1.Button1Click(Sender: TObject);varSaveDialog : TSaveDialog ;filename:string;ExcelApp: TExcelApplication;wkBook: _WorkBook;wkSheet: _WorkSheet;LCID: Integer;beginExcelApp := 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]] dobeginColumnWidth := 8; // 宽度MergeCells := True; //合并单元格WrapText := True; //自动换行HorizontalAlignment := xlCenter; //对齐方式 xlleft,xlrightVerticalAlignment := xlCenter; //对齐方式 xltop,xlbottomfont.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);trySaveDialog.Title := ‘输入文件名‘;SaveDialog.Filter := ‘Microsoft Excel 工作薄|*.xls‘;if SaveDialog.Execute thenFileName := SaveDialog.FileNameelseExit;finallySaveDialog.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合并语句! property id does not exists 关于DLL调用 散分!中秋到了祝大家快乐 多多支持! 关于写入INI文件的错误,请指教? 哪可以下载norton2002啊,给出有用信息均给分 关于Office Viewer OCX 3.1 控件 请教ADO在DELPHI中的使用问题! 请教大侠如何获得鼠标当前的像素位置? 请教有关query的两个问题,望高手指教,本人百思不的其解。 ★★★★★如何给这个消息动手术????白给的题!!!!! 如何实现运行时拖拉控件,并给控件赋予相应的事件。
b_filedCount :=eclApp.ActiveSheet.UsedRange.columns.Count;//返回excel 表中的列数
b_row :=eclApp.activesheet.UsedRange.rows.count; //返回excel 表中的行数
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