VLISP在Excel对象中的应用（二）：Excel中的复制和粘贴

zipo

接着昨天的代码继续补充
(setq template-sheet-content(vlax-get-property active-sheet2"Range" "A1:N44")) ;;获取"测试表.xls"中sheet2表格中的区域"A1:N44"的属性
(vlax-invoke-method template-sheet-content "Copy") ;;将"测试表.xls"中sheet2表格中的区域"A1:N44"的内容复制到粘贴板
(setq active-sheet-paste-cell(vlax-get-property active-sheet1 "Range" "A1"));;获取sheet1工作表中的单元格"A1"的属性，如果需要动态选择表格可将"A1"替换为(strcat "A" (vl-princ-to-string 1))，其中1所在的位置可以为A列中任意可表示行数的数字
(vlax-invoke-method active-sheet1 "Activate");;将工作表sheet2置为当前活动工作表，要实现工作表中单元格的选择和数据的粘贴必须将目标工作表设置为活动工作表
(vlax-invoke-method active-sheet-paste-cell "Select" );;选择A1单元格为活动单元格
(vlax-invoke-method active-sheet "Paste");;将sheet2工作表中"A1:N44"的内容粘贴到sheet1中

hxuerong1

谢谢! 分享程序!!!!!!

yoyoho

谢谢! 分享程序!!!!!!

oldnewlearn

不错，跟着学习下