excel 的一些问题，在线等，急忙……

Question

delphi中的数据导出到excel问题：
excel中我合并但愿格如下代码；但是合并后的单元格我不知道怎么赋值；Range := exele.ActiveSheet.Range['C4:E4'];
Range.merge;
Range.mergeCells:='内盒';//此行赋值失败
『如果是用sheet.cells[4,3].value:='' 虽然可以赋值，但是会提示错误的信息筐出来』

Answer 1

ExcelApp := GetActiveOleObject('Excel.Application'); 
{...}
ExcelApp.Range['B3:D3'].Mergecells := True; 

Answer 2

我要的是
ExcelApp.Range['B3:D3'].Mergecells := ‘赋上我指定的值’而不是true

Answer 3

各位大侠啊，就是excel合并单元格后，怎么给合并的单元格赋值啊？？
下午要完工啊
救命

Answer 4

在VB中：
Set ma = Range("A3").MergeArea
If Range("A3").MergeCells Then
    ma.Cells(1, 1).Value = "42"
End If（注：供参考）

Answer 5

var mRange: OLEVariant;
{...}
mRange := XLApp.Range['B3:D3'];
mRange.Merge;
mRange.Cells[1,1].value := 'merge_test';(注：在Delphi下TEST了、没有問題)

Answer 6

还是一个样，会出现提示筐“选定区域包含多重数值，合并到一个单元格后只能保留最左上角的数据”http://community.csdn.net/Expert/topic/3221/3221021.xml?temp=.5768854

Answer 7

hehe～～～,NI是説出现提示筐呀。先清空Range...mRange := XLApp.Range['B3:D3'];
mRange.value := '';  //加上試試
mRange.Merge;
mRange.Cells[1,1].value := 'merge_test';

Answer 8

ExcelWorkSheet1.Cells.Item[行,列]:='是'