您的位置：程序门 -> vb -> vba



为什么不能在当前工作表插入其他excel表？


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


为什么不能在当前工作表插入其他excel表？
发表于：2007-07-26 20:18:13 楼主
objsheet.copy   before:=activeworkbook.sheets（1)
在当前excel中有一个按钮，功能是把其它表中的sheet插入到当前工作表前面，为什么上述代码出错？（我试过了，插到其它表中都可以，就是插入当前表就不行)?各位大侠要怎么改？
发表于：2007-07-26 20:19:461楼 得分:0
对了，忘了说，编译时提示       方法 'copy '   作用于对象 '_worksheet '时失败
发表于：2007-07-26 21:50:452楼 得分:0
按理说你的代码没有问题，能不能把相关的代码也贴出来
发表于：2007-07-27 08:49:573楼 得分:0
set   objexcel   =   createobject（ "excel.application ")
  set   objbook   =   objexcel.workbooks.open（ "c:\documents   and   settings\lianj\桌面\李成人力资源－1.xls ")
  objexcel.visible   =   true
  set   objsheet   =   objbook.sheets（ "2007年25周 ")
       
 
    set   objbook   =   objexcel.workbooks.open（ "c:\documents   and   settings\lianj\桌面\出差人员人力资源模板-杨骏.xls ")
  objsheet.copy   before:=objbook.sheets（1)

上述写法是可以的，但是我把最后两句去掉，改为
  objsheet.copy   before:=   activeworkbook.sheets（1)，想把表插到当前工作表前，这样就提示上述的错误

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击