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

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

 

 

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘