★★★★★用delphi控制Excel单元格格式（文本对齐方式、单元格自动换行等），很急，在线等待！★★★★★(100分)

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #1

请问谁能告诉我怎么样用delphi代码控制Excel一个单元格的格式，
比如文本对齐方式：水平对齐为居中，垂直对齐为居中，
并设置该单元格自动换行，怎么处理？？？
很急，希望大家帮我一把，顺便可以给些其他有关资料，
万分感谢！

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #2

请各位高手回答！
分一定有！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #3

自己在 excel 中录制一个宏，就什么都知道了。

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #4

to：jsxjd
请问具体怎么作？
我没做过，谢谢！

 

大

大文

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #5

excel=createobject('excel.application')
我有FOXPRO的例子，供参考：
excel.Workbooks.Add
o=excel.activeworkbook.activesheet
o.cells(1,1).value='第1行1列'
o.cells(1,2).value='第1行2列'
o.cells(2,1).value='第2行1列'
o.cells(2,2).value='第2行2列'
excel.visible=.t.
如果你用FOXPRO7的话，可以用
excel=createobject('excel.application')
然后用excel.可以及时的查找到EXCEL的所有方法的实例。

 

大

大文

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #6

我有 FOXPRO7 的简版，要的话可以给你参考参考。

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #7

通过EXCEL,选择菜单项工具->宏->录制新宏或宏
按Alt+F11可以看你录制宏的源代码
Range("B10").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With

 

1

1_1_1_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #8

对，楼上的说得对，
我来迟了，
^_^

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #9

FExcelApplication.ConnectKind := ckNewInstance;
FExcelApplication.Connect;
FExcelWorkbook.ConnectTo(FExcelApplication.Workbooks.Add(TOleEnum(xlWBATWorksheet), LCID));
FExcelWorksheet.ConnectTo(FExcelWorkbook.Worksheets[1] as _Worksheet);
FExcelWorksheet.Range[1,1].HorizontalAlignment:=xlCenter;
FExcelWorksheet.Range[1,1].VerticalAlignment = xlCenter
FExcelWorksheet.Range[1,1].WrapText = True

 

S

starpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-19

• #10

excel: Variant;
WBk, WS, RG: OleVariant;


try
Excel := GetActiveOleObject('Excel.Application');
except
Excel := CreateOleObject('Excel.Application');
end;
wbk:=Excel.ActiveWorkbook;

RG:=WS.Range[WS.Cells[3,1],WS.Cells[9,9]];
RG.HorizontalAlignment := xlHAlignCenter;
RG.VerticalAlignment := xlHAlignCenter;
RG.WrapText := True;

 

S

starpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-19

• #11

excel: Variant;
WBk, WS, RG: OleVariant;


try
Excel := GetActiveOleObject('Excel.Application');
except
Excel := CreateOleObject('Excel.Application');
end;
wbk:=Excel.ActiveWorkbook;
WS:=Excel.Worksheets[1]

RG:=WS.Range[WS.Cells[3,1],WS.Cells[9,9]];
RG.HorizontalAlignment := xlHAlignCenter;
RG.VerticalAlignment := xlHAlignCenter;
RG.WrapText := True;

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #12

多人接受答案了。