線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2089
推到 Plurk!
推到 Facebook!

如何用鼠标拖动来复制一个excel的sheet

缺席
ctx62
一般會員


發表:4
回覆:28
積分:6
註冊:2002-12-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2013-05-20 17:54:11 IP:121.18.xxx.xxx 訂閱
 如题!我想这样操作excel的sheet,我在已有的excel文件中有3个sheet(假如说是sheet1、sheet2、sheet3),现在想把sheet1全选,然后按住Ctrl键,把鼠标指向sheet1按住后往后拖动,会产生一个sheet1(2)的新的sheet
我用excel录制宏的方法得到下面的VBA脚本,
Range("A1:A2065").Select
Sheets("Sheet1").Copy After:=Sheets(3)
但不知道如何翻译成delphi的语句来执行
谢谢
老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2013-05-21 07:31:48 IP:210.61.xxx.xxx 未訂閱
有某些地方不夠明確...
你要的是把整個Sheet"複製"的功能?
還是要純粹用拖動來做複製?
假如是第二者
那麼 你應該先告知你在程式中畫面呈現的樣子
要不然從何幫起沒人知道...
畢竟
您所敘述的東西都是在Excel中的動作
P.D.
版主


發表:572
回覆:3897
積分:3689
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2013-05-21 09:51:33 IP:118.169.xxx.xxx 未訂閱
本篇主題不適合在資料庫區, 所以協助移到 WIN32 API
ctx62
一般會員


發表:4
回覆:28
積分:6
註冊:2002-12-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2013-05-23 11:57:59 IP:8.35.xxx.xxx 訂閱
问题已经解决了。谢谢   
Excel_v.Workbooks.Open('c:\未分类的项目.xls');
Excel_v.Workbooks.add; //(-4167); //添加工作表
Excel_v.SheetsInNewWorkbook := 2;
Excel_v.WorkBooks[1].Worksheets[1].Name := '抗菌素药物使用人';
Excel_v.WorkBooks[1].Worksheets[2].Name := '抗菌素药物';
sheet := Excel_v.workbooks[1].worksheets['抗菌素药物使用人'];
sheet2 := Excel_v.workbooks[1].worksheets['抗菌素药物'];
sheet.Copy(EmptyParam, Sheet2); //将sheet表复制到sheet2后面,数据相同
系統時間:2018-01-20 16:54:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!