如何將一個工作簿中的工作表復制到另一個工作簿？

Question

我有兩個工作簿，第一個是工作表 Sheet1，第二個是工作表 Sheet2。

在 Sheet1 中，數據具有以下格式，逗號表示新列：

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

我正在嘗試使用今天的日期從 Sheet1 中的行復制特定數據點。
我正在嘗試 append 今天所有行的日期和名稱到 Sheet2 的末尾。

在 Sheet2 中，數據具有以下格式，逗號表示新列：

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

我想將 append 發送到 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:\Excel\Files\Workbook2.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 工作簿並將該工作表復制到您的工作簿。