输出excel后字段数据排列问题(30分)

H

hkle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #1

//单元格居中
Myworkbook.worksheets[1].range['A1:H2'].HorizontalAlignment := $FFFFEFF4;
上面这句是实现输出后字段居中的代码，我现在想要居前或居后的代码，就是后面“$FFFFEFF4”这个值是什么？
关于这类属性该去哪查找帮助？Delphi的帮助里有吗？在哪里有比较详细的介绍OLE这方面的资料？不尽感激！！！

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #2

返回或设置指定对象的水平对齐方式。对所有对象，可为以下 XlHAlign 常数之一：xlHAlignCenter、xlHAlignDistributed、xlHAlignJustify、xlHAlignLeft 或者 xlHAlignRight。另外，对于 Range 或 Style 对象，可以将此属性设置为 xlHAlignCenterAcrossSelection、xlHAlignFill 或 xlHAlignGeneral。Variant 类型，可读写。

参看OFFICE的VBA帮助

 

H

hkle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #3

如果我想控制Excel中某个单元格可以换行是用到什么代码？还有格单元格的自动适应列宽的代码呢？
有哪位高手做过导出Excel复杂标题的吗？就是在一行下面里面还有几列的那种，如下面给出的代码是简单的一行表头，
//表头
i := 3;
MyWorkBook.WorkSheets[1].Cells[i,1].Value := '姓名';
MyWorkBook.WorkSheets[1].Cells[i,2].Value := '性别';
那复杂的表头该怎么写代码？谢谢

 

H

hkle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-15

• #4

Excel单元格的合并如果是行的话用
Myworkbook.worksheets[1].range['A1:O1'].Merge(True);这个可以实现。
但是我想合并列的话该怎么实现？上面Merge的办法我测试过不成功。

 

L

lzmyxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-15

• #5

单元格中换行：
Myworkbook.worksheets[1].range['A1:H2'].WrapText := true;
想要制作复杂的标题，你可以通过各个单元格之间的合并来实现，
ExcelApp.Range[ExcelApp.Cells.Item[1,1],ExcelApp.Cells.Item[1,2]].Merge(0);
用这种可以实现行和列的合并啊。
可以做看看office的帮助，也可以通过录制宏来实现，把你想要的效果先在excel下写好，再看宏的源码。

 

H

hkle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-15

• #6

谢谢lzmyxz帮我解决了大问题！
还有一个问题，我如何设置单元格居中？就是说我合并了几个单元格后数据显示的时候要在表格的垂直和水平都是居中？