用delphi怎样改变excel的Columns宽度???(11分)

  • 主题发起人 主题发起人 陈桂坚
  • 开始时间 开始时间
陈

陈桂坚

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么下面的代码老是报错的!!!!!!!!!!!!!!!!!!!!!!
设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5; 错错!!!
 
[:)][:)][:)][:)][:)][:)]
 
在Delphi7＋Excel2003编译通过
======================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp,ExcelWorksheet,ExcelWorkbook:Variant;
begin
ExcelApp:=CreateOLEObject('Excel.Application');
ExcelWorkbook:=ExcelApp.WorkBooks.Open('c:/test.xls') ;
ExcelWorksheet:= ExcelApp.Worksheets['Sheet1'];
ExcelWorksheet.Activate;
ExcelWorksheet.Columns[1].Columnwidth := 12;
end;
 
请用DELPHI的控件ExcelApplication1!!!
 
用DELPHI自带的控件ExcelApplication1,谁能实现!!
 
[:(!][:(!][:(!][:(!]
 
[:(!][:(!][:(][:(][:(]
 
把你的columnswidth改為columnwidth試一下
應該可以的
 
请问怎样将cell里的文字居中显示啊？
 
不行呀~
 
自己录制宏，
把宏抄写到DELPHI里。
 
水平居中顯示：
FWorkSheet.Range[FWorkSheet.Cells[iRow, 1], FWorkSheet.Cells[iRow, 10]].HorizontalAlignment := xlCenter;
 
用FWorkSheet.Columns.AutoFit;好了！￣
 
FWorkSheet.Columns.AutoFit没意思,,,我要指定某一COLUMN的宽度呀,,,,!!!!!!!!!!!!
例如 column[1] 为 20 column[2] 为 30 column[3] 为 40
 
FworkSheet.Columns.Range_['A1','A1'].ColumnWidth := 5;
编译通过
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
N
ExcelWorkSheet怎样修改Excel的列宽？(50分)
回复
5
查看
194
netCobra
N
D
看似简单的问题：怎么得到EXCEL的列宽——注意：不是设置。(50分)
回复
15
查看
150
ddntyz
D
H
Delphi6中操纵Excel,怎么对一行(或列)进行设置?(200分)
回复
5
查看
158
hfpang
H
H
delphi excel编程，如何能知道sheet的页面宽度(1分)
回复
0
查看
184
hamang
H
后退
顶部