如何将某些列复制到新保存的 excel 文件中？

Question

我正在尝试通过运行宏将源工作簿中的某些特定列复制到新保存的 excel 文件中。

我有以下代码：

Sub test_this()

    Dim sFileSaveName, cel, InitialName As String, column_name As String, NextColumn As Long
    
    Dim wbSource As Workbook, wbDestin As Workbook
    
    Dim wsSource As Worksheet, wsDestin As Worksheet, wsControl As Worksheet
    
    Set wbSource = ActiveWorkbook
    
    Set wsControl = ActiveSheet                   
    Set wsSource = wbSource.Worksheets("Sheet1")     
    
    InitialName = "Sample Output"
    sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsm), *.xlsm")
    
    If sFileSaveName <> False Then

    End If

End Sub

可以把它另存为一个新的excel文件，但是如何获取路径并打开源书，同时复制活动书上指示的栏目并保存？

这是我的预期输出

例如： 源工作簿中有 4 列：A、B、C 和 D 这是我运行 vba 的活动工作簿。 如果我按以下顺序放置列：单元格范围 B2:B5 中的 D、A、C、B，并将源书籍的路径放在单元格 B6 中。 我应该能够从源书中复制列，将它们复制并保存为一个新的 excel 文件。第 1 列将包含来源书中的 D。第 2 列将有 A....

资料书：

活动书籍：

新保存的 excel 文件：