关于导入Excel问题(50分)

主从表结构(sql2000)
excel文件最终显示的效果
第一行正中显示‘材料明细表’，内容固定，不是由主从表来
第二行显示主表（master表）内容，客户名称（customer字段）,日期(系统默认今天日期)
，编号(No字段)
第三行开始显示子表(Item表)内容，包括材料名称(materiel字段)，价格(price)
最好在子表结束行的下两行显示'制表人:'，'审核人:',两个名称之间有一定空间，在
delphi里如何通过编程把数据导入excel,最重要是如何控制好各个数据之间的位置

先用EXCEL做一个模板，定议好格式，再把数据用程序写进去

对 cxcel 文档的单元格赋值！

这个 问题的解法太多了，
网上随便都可以找到

我现在装的Excel是xp版，exele:=CreateOleobject('Excel.Application');提示不支持此
接口(exele定义为variant)，如何办

高處不勝寒!!!

应该是 oleVariant
uses comobj

用ole自动控制excel就行了，可以精确控制每个单元格， 这总该可以了吧如果有什么地方不会录一下宏就行了。

谁会把第二列第二行和第三列第二行合并，就是把一格加宽

shuaihu:
如何在delphi中調用宏呢？請指教。

我的目的是把在DBGrid显示的数据导出到Excel,我现在想知道如何把DBGrid每一列的宽度
值赋给到Excel中相应的每一列

ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;

我给你一点代码希望能对你有帮助(钻贴别人的)
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;

或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035;
// 1厘米
9) 在第8行之前插入分页符：
ExcelApp.WorkSheets[1].Rows.PageBreak := 1;
10) 在第8列之前删除分页符：
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度：
ExcelApp.ActiveSheet.Range[ 'B34' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )
12) 清除第一行第四列单元格公式：
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性：
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

ExcelApp.ActiveSheet为何提示activesheet错

您就在Excel点击 工具->宏->宏 进行录宏，当然录宏的同时进行您想要通过
编程实现的操作，然后查看您刚才录的宏，作相应调整写道Delphi里面对OLE进
行控制的代码就OK了！ ^_^
祝您好运！

进入宏后，输入宏名，按创建，就打开了VB,应该怎样做呀

study

先取得要导入数据的列数和行数，而后再控制cell[i,j]中i,j的值就可以了

接受答案了.