说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB复制Excel表到另外一个Excel中

HTML文档下载 WORD文档下载 PDF文档下载
实现将excel表格中的内容复制到另外一个excel文件的表格中

下面的代码实现将excel表格中的内容复制到另外一个excel文件的表格中:

 

Set objExcel = CreateObject("Excel.Application")objExcel.Visible = True' 打开文件Set objWorkbook1= objExcel.Workbooks.Open("C:\Documents and Settings\okbase.net\Desktop\1.xls")Set objWorkbook2= objExcel.Workbooks.Open("C:\Documents and Settings\okbase.net\Desktop\2.xls")' 复制然后粘贴objWorkbook1.Worksheets("Sheet1").UsedRange.CopyobjWorkbook2.Worksheets("Sheet1").Range("A1").PasteSpecial Paste =xlValuesobjWorkbook1.saveobjWorkbook2.saveobjWorkbook1.closeobjWorkbook2.closeset objExcel=nothing

 

 

英语对于软件开发者来说到底有多重要? SDCC 2013中国软件开发者大会成功落幕 新浪微博宋琦:PHP在微博优化中的“大显身手” 8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 紧急求助!! 怎样改表鼠标图标? 巨不理解,为何access数据库大小暴增???? 怎么只能选取视图中的一个文档? 有谁做过服务器托管 过程中的值引用问题,问过3遍了,还没解决 请问有谁研究过智能agent或移动agent,大家交流一下? 请教错误的原因 能给我解释一下下句吗? 英语成绩怎么提高啊,除了单词背课文,还有什么需要解 高一生物必修一第一章结构网络图 急 能说说 这图的详细工作原理吗? 急-0-、要有过程噢. 直线l经过点P(5,5),其斜率为k(k∈R),l 交点经过P(5,5),其斜率K(K∈R)的直线L与 如下.在一次爆炸中用一条长0.9m的导火线引爆炸药 怎样才能在一年内提高英语成绩,每天要背几个单词? 怎么背英文单词 泰国沉船事故疑因机械故障 船长事发后2辆北约油罐车在巴基斯坦遇袭 或为巴美炸死塔利班领袖引不满 巴基斯坦检讨世界俄罗斯人民大会授予普京捍卫大国地CNN再次暴露“双重标准”赤脚朝鲜孤注一掷玩核咖喱鸡肉派“铁锈罗”库拉达剑机械键盘整容记蛇蝎女人!毒死8岁亲儿 原因竟是……花菜炒蛋至尊升级末世大恶人史上最牛穿越万界独尊末世剑宗六十石山旅游三峡清水祖师庙旅游三峡老街旅游沂水天然地下画廊旅游广州塔摩天轮旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘