好库网 好库网首页 | 我的好库
VB爱好者

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

发布者:vbfans
发布日期:2011/5/18 19:35:02   更新日期:2011/5/18 19:35:02
阅读次数:6048
评分:4.80
介绍:实现将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.Copy
objWorkbook2.Worksheets("Sheet1").Range("A1").PasteSpecial Paste =xlValues

objWorkbook1.save
objWorkbook2.save
objWorkbook1.close
objWorkbook2.close
set objExcel=nothing

 

 


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。