能否实现列复制到新表（含跨工作簿）

ruiqian

求助：VAB能否实现复制列到新表（含跨工作簿）

mmwwdd

这里的例子很多，你搜一下

ruiqian

mmwwdd 发表于 2023-2-26 20:34
这里的例子很多，你搜一下

小白一个，搜了很久，也下了不少，都没合适，能否提供一个，万分感谢！

mmwwdd

Sub CopyColumnstoNewTable()
    '定义变量
    Dim SourceWb As Workbook
    Dim TargetWb As Workbook
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim SourceColumn As Range
    Dim TargetColumn As Range
    '设置源工作簿
    Set SourceWb = Workbooks.Open("C:\SourceWorkbook.xlsx")
    Set SourceSheet = SourceWb.Sheets("Sheet1")
    '设置目标工作簿
    Set TargetWb = Workbooks.Open("C:\TargetWorkbook.xlsx")
    Set TargetSheet = TargetWb.Sheets("Sheet1")
    '设置源列
    Set SourceColumn = SourceSheet.Range("A:A")
    '复制列
    SourceColumn.Copy
    '粘贴到目标工作簿
    TargetSheet.Range("A1").PasteSpecial xlPasteValues
End Sub

ruiqian

mmwwdd 发表于 2023-2-27 06:25
Sub CopyColumnstoNewTable()
    '定义变量
    Dim SourceWb As Workbook

感谢，我粘贴进宏文件，运行不了

ruiqian

ruiqian 发表于 2023-2-27 13:48
感谢，我粘贴进宏文件，运行不了

不懂怎么操作