| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 420 人关注过本帖
标题:如何用代码从一个workbook复制需求列到另外的workbook,并对复制列更改列标 ...
只看楼主 加入收藏
huangyz_xy
Rank: 2
等 级:论坛游民
帖 子:91
专家分:20
注 册:2016-10-2
结帖率:76.47%
  问题点数:0  回复次数:3   
如何用代码从一个workbook复制需求列到另外的workbook,并对复制列更改列标题

 用代码如何将已有文件AA中sheet1的“BB”,"CC"列复制到新文件DD的SHEET2中,并将列名分别更改为"EE"和"FF"
搜索更多相关主题的帖子: 更改 复制 需求 代码 列标题 
2019-09-02 11:17
沉默的痞子
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:12
帖 子:86
专家分:102
注 册:2015-10-7
  得分:0 
没有试过整个列复制,你可以遍历每一个单元格复制过去
2019-09-16 17:14
huangyz_xy
Rank: 2
等 级:论坛游民
帖 子:91
专家分:20
注 册:2016-10-2
  得分:0 
回复 2楼 沉默的痞子
有8万多行,费时太长了!谢谢
2019-09-16 23:21
沉默的痞子
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:12
帖 子:86
专家分:102
注 册:2015-10-7
  得分:0 
回复 3楼 huangyz_xy
程序代码:
Private Sub Form_Load()
Dim ex As New Excel.Application
Dim books As Excel.Workbook
Dim sht As Excel.Worksheet
Dim sht2 As Excel.Worksheet

Set ex = CreateObject("Excel.Application")

Set books = ex.Workbooks.Open("C:\book.xlsx")
Set sht = books.Sheets(1)
Set sht2 = books.Sheets(2)
sht.Range("c1:C3").Copy
sht2.Paste sht2.Range("e1:e3")
books.Save
books.Close
ex.Quit
End Sub



Range的大小要一样
2019-09-17 11:14
快速回复:如何用代码从一个workbook复制需求列到另外的workbook,并对复制列更改 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.061554 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved