如何将一个工作簿中的工作表复制到另一个工作簿？

Question

我有两个工作簿，第一个是工作表 Sheet1，第二个是工作表 Sheet2。

在 Sheet1 中，数据具有以下格式，逗号表示新列：

Name, Date, Cost
Y, 03 Nov 22, 100
X, 04 Nov 22, 1000
Z, 04 Nov 22, 10000000

我正在尝试使用今天的日期从 Sheet1 中的行复制特定数据点。
我正在尝试将今天所有行的日期和名称附加到 Sheet2 的末尾。

在 Sheet2 中，数据具有以下格式，逗号表示新列：

Leave blank, Date, Leave blank, Name
None, 03 Jan 18, None, A

我想附加到 Sheet2，留下以下数据：

Leave blank, Date, Leave blank, Name
None, 03 Jan 18, None, A
None, 04 Nov 22, None, X
None, 04 Nov 22, None, Z

Public Sub CopyData()
    Dim data As Workbook 'Where all data is stored ie FIRST with Sheet1
    Dim destination As Workbook 'Where the days data will be appnded to ie Second with Sheet2

    Set destination = ThisWorkbook
    
    Set data = "S:..FIRST.xlsm"
    
End Sub

Answer 1

我有点不确定你想要的结构/格式是什么，但下面是打开另一个工作簿并复制该工作簿中的工作表的代码。

Sub CopySheet() 

Dim this_workbook As Workbook 'Declare variable of current workbook
Dim taget_workbook As Workbook 'Declare variable of the targeted workbook you want to open

Set this_workbook = ThisWorkbook

Set target_workbook = Workbooks.Open("T:ExcelFilesWorkbook2.xls") 'Opens the workbook you wish to copy data from 

target_workbook.Sheets("Sheet2").Copy After:=currentworkbook.Sheets("Sheet1") 'Your workbook is open, copy over the worksheet you want to copy over, in this case "Sheet2" will be copied and placed after "Sheet1"

target_workbook.Close 'Close targeted workbook

Set target_workbook = Nothing
Set this_workbook = Nothing

您可以将其添加到带有 Sheet1 工作表的工作簿中，它将打开带有 Sheet2 的 excel 工作簿并将该工作表复制到您的工作簿中。