delphi中导入Excel表格的问题。如何设置Excel的宽度和高度,还有一问题,建一个Excel模版,想将数据导入这个已存在的模版中,如何实现,望有源码 (

  • 主题发起人 主题发起人 wanghw
  • 开始时间 开始时间
W

wanghw

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中导入Excel表格的问题。如何设置Excel的宽度和高度,还有一问题,建一个Excel模版,想将数据导入这个已存在的模版中,如何实现,望有源码 ( 积分: 100 )<br />在D5中,放入3个控件ExcelApplication1,ExcelWorkbook1,ExcelWorksheet1。
源码如下:
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Applicationqqq';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Cells.Item[1,3]:='asd74';
怎样设置高度和宽度,我看了BBS,上面写
ExcelWorksheet1.ActiveSheet.Columns[1].ColumnsWidth := 5;
为什么我用Column[1]调试就会出错。

还有一问题,建一个Excel模版,想将数据导入这个已存在的模版中,如何实现,望有源码。
 
在D5中,放入3个控件ExcelApplication1,ExcelWorkbook1,ExcelWorksheet1。
源码如下:
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Applicationqqq';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Cells.Item[1,3]:='asd74';
怎样设置高度和宽度,我看了BBS,上面写
ExcelWorksheet1.ActiveSheet.Columns[1].ColumnsWidth := 5;
为什么我用Column[1]调试就会出错。

还有一问题,建一个Excel模版,想将数据导入这个已存在的模版中,如何实现,望有源码。
 
大哥们呢,给我个反应好不好啊!我的分很容易得的啊
 
后退
顶部