| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
Reworld,下班在家制作游戏,1500万奖金等你拿以码会友 以友辅仁
共有 208 人关注过本帖
标题:如何用代码从一个workbook复制需求列到另外的workbook,并对复制列更改列标 ...
只看楼主 加入收藏
huangyz_xy
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2016-10-2
结帖率:63.64%
  问题点数:0  回复次数:3   
如何用代码从一个workbook复制需求列到另外的workbook,并对复制列更改列标题

 用代码如何将已有文件AA中sheet1的“BB”,"CC"列复制到新文件DD的SHEET2中,并将列名分别更改为"EE"和"FF"
搜索更多相关主题的帖子: 更改 复制 需求 代码 列标题 
2019-09-02 11:17
沉默的痞子
Rank: 3Rank: 3
等 级:论坛游侠
威 望:8
帖 子:82
专家分:102
注 册:2015-10-7
  得分:0 
没有试过整个列复制,你可以遍历每一个单元格复制过去
2019-09-16 17:14
huangyz_xy
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2016-10-2
  得分:0 
回复 2楼 沉默的痞子
有8万多行,费时太长了!谢谢
2019-09-16 23:21
沉默的痞子
Rank: 3Rank: 3
等 级:论坛游侠
威 望:8
帖 子:82
专家分: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.026492 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved