通过按下按钮将数据从一个Excel工作簿复制到主工作簿

Question

是否可以保存到另一个工作簿而不是同一个工作簿。我们正在制作一本主要的练习册。每天我们正在更新数据，一旦通过按钮更新需要复制到主工作簿，工作表名称为当前日期。

以下代码用于将同一工作簿复制到sheet2

Private Sub CommandButton1_Click()

On Error GoTo Err_Execute

Sheet1.Range("A1:J75").Copy 
Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown

Err_Execute:

If Err.Number = 0 Then

MsgBox "All have been copied!"

ElseIf Err.Number <> 0 Then

MsgBox Err.Description

End If

End Sub

Answer 1

是的，这是可能的。您只需正确设置工作簿即可引用它们：

b

只需修改表单以符合您的需求，它就可以正常工作

如果要在主工作簿上创建工作表并重命名，请使用：

Dim masterWB As Workbook
Dim dailyWB As Workbook

'Set Current Workbook as Master
Set masterWB = Application.ThisWorkbook
'Set some Workbook as the one you are copying from
Set dailyWB = Workbooks.Open("PATH TO WORKBOOK HERE")

'Copy the Range from the Workbook and Paste it into the MasterWB
dailyWB.Sheets(1).Range("A1:J75").Copy masterWB.Sheets(1).Range("A1").Rows("1:1")

Close the Workbook without saving
dailyWB.Close False
'Clear the Variables
Set dailyWB = Nothing
Set masterWB = Nothing

根据您要用于名称的格式，根据您的需要修改“mm-dd-yyyy”。即G。 “YYYY.MM.DD”