编程论坛 → VB6论坛

如何用代码从一个workbook复制需求列到另外的workbook，并对复制列更改列标题

huangyz_xy 发布于 2019-09-02 11:17， 1925 次点击

用代码如何将已有文件AA中sheet1的“BB”,"CC"列复制到新文件DD的SHEET2中，并将列名分别更改为"EE"和"FF"

3 回复

沉默的痞子2019-09-16 17:14

没有试过整个列复制，你可以遍历每一个单元格复制过去

huangyz_xy2019-09-16 23:21

回复 2楼沉默的痞子

有8万多行，费时太长了！谢谢

沉默的痞子2019-09-17 11:14

回复 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的大小要一样