VBA Excel打开已关闭的文件并复制特定列，然后保存到不同的文件

Sub CopySpecificColumns()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceFilePath As String
    Dim targetFilePath As String
    Dim sourceColumn As Range
    Dim targetColumn As Range
    
    ' 设置源文件路径和目标文件路径
    sourceFilePath = "C:\path\to\source\file.xlsx"
    targetFilePath = "C:\path\to\target\file.xlsx"
    
    ' 打开源文件和目标文件
    Set sourceWorkbook = Workbooks.Open(sourceFilePath)
    Set targetWorkbook = Workbooks.Open(targetFilePath)
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet1")
    
    ' 设置源列和目标列
    Set sourceColumn = sourceWorksheet.Range("A:A") ' 源列A
    Set targetColumn = targetWorksheet.Range("B:B") ' 目标列B
    
    ' 复制源列到目标列
    sourceColumn.Copy Destination:=targetColumn
    
    ' 保存目标文件并关闭工作簿
    targetWorkbook.Save
    targetWorkbook.Close
    
    ' 关闭源文件
    sourceWorkbook.Close
End Sub