按下按鈕將數據從一個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

是的，這是可能的。 您只需要正確設置工作簿就可以引用它們：

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

只需修改表格即可滿足您的需求，它應該可以正常工作

如果要在主工作簿上創建工作表並重命名，請使用以下命令：

Dim tempWS as Worksheet
Set tempWS = masterWB.Sheets.Add

tempWS.Name = Format(Date, "mm-dd-yyyy")

根據您要使用的名稱格式，根據需要修改“ mm-dd-yyyy”。 例如“ yyyy.mm.dd”