在Delphi 中拷貝工作表WorkSheet的問題

lc406 2004-09-22 04:52:50

本人較少在Delphi在調用Excel ，word 等Ole類型，對此不熟悉，現有一問題麻煩各位熟悉的高手指點。
在Excel 中有一個模板（其中一個工作表Sheet），現在本人想將此工作復制一個，請指點一下如何編寫程序？

...全文

81 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lc406 2004-09-22

打赏
举报

回复

為感謝GoldShield(小花☆正直人)的熱心，送100分給他了。

lc406 2004-09-22

打赏
举报

回复

不好意思，已經解決了。
多謝　GoldShield(小花☆正直人) 的熱情支持。
本人試了一下，建產OLE對象Excel 後，直接用
Excel.Worksheets.copy(Excel.Worksheets[1]) 即可復制一個副本。

GoldShield 2004-09-22

打赏
举报

回复

可以参考一下:
http://community.csdn.net/Expert/TopicView.asp?id=3361061

procedure TForm1.FormCreate(Sender: TObject); var wb1 : Variant; wb2 : Variant; vsheet1 : Variant; vsheet2 : Variant; range1 , range2 : Variant; begin wb1 := CreateOleObject('Exce

1．创建Excel对象 eole=CREATEOBJECT("Excel.application") 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets("sheet3").Activate 4．打开指定工作簿 eole.Workbooks.Open("c:\temp\ll.xls") 5．显

这个问题不难的，上面几楼回答的都正确，但是LZ以前没接触过用delphi操作excel或word，恐怕最需要的是一个做好的完整project，这么热心的朋友也许不会有。过程也就是用delphi提供的excel组件或通过ole方式连接excel，打开excel文件，读取数据，然后连接数据库写入到数据库中。给你一些曾经有人贴过的代码，只能靠你自己测试了。 Delphi&Excel

DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改

DELPHI中EXCEL组件的使用方法: 一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： Excel

Windows SDK/API

1,183

社区成员

22,335

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章