file1.xls中有sheet1,
file2.xls中有sheet2,
在delphi如何将两个文件中的sheet1,和sheet2合并到file1.xls中?
file2.xls中有sheet2,
在delphi如何将两个文件中的sheet1,和sheet2合并到file1.xls中?
解决方案 »
- FileOpen总是等于-1的问题
- 用delphi 怎么调用用C#写的webservice?
- 这么一个小问题
- 用socket,我如何知道服务端收到了数据,在客户端中可以删除刚才发送的数据呢?
- Indy的IdTCPServer与IdTCPClient数据写读问题
- 高手请回答:SQL语句between 的用法?这样写对吗?给分!
- 软件发布兼散分,进来侃侃有分!
- 请问,在DBGRIDEH表格中,如何能够在按下TAB键后还能恢复当前列的值
- 菜鸟的问题能不能给讲一下 和给个例子TShellTreeView和TShellListView 给讲讲谢谢了
- 为什么这个语句不执行?
- 关于:Incompatible types: 'Array' and 'PAnsiChar'求助
- 500元人民币求等距线算法
var
v:Variant;
begin //打开EXCEL新建文件
try
v:= CreateOleObject('Excel.Application');
v.Visible := CheckBox1.Checked;//是否显示
v.Workbooks.Add;//新建EXCEL文件
v.Workbooks[1].WorkSheets[1].Name := 'DELPHI演示';
// Sheet:= v.Workbooks[1].WorkSheets['DELPHI演示'];//等效下面的语句
Sheet:= v.Workbooks[1].WorkSheets[1];
Sheet.Cells[1,1] :='DELPHI盒子';
Sheet.Cells[2,1] :='http://www.delphibox.com';
except
Showmessage('初始化Excel失败,可能没装Excel,或者其他错误;请重起再试。');
v.DisplayAlerts := false;//是否提示存盘
v.Quit;//如果出错则退出
exit;
end;
Application.Restore;
Application.BringToFront;
end;上面是以前找的一段代码,可以建立三个xls文件,两个xls文件进行读取,一个xls文件进行写入结果,
最后保存第三个就可以了