Excel VBA 代码：复制数据到每日更新工作簿

以下是实现将一个工作簿中名为'data'的sheet中的数据复制到另一个工作簿中名为'Runing_Project_Status_560A_20230628'的sheet中的VBA代码：

Sub CopyData()

Dim sourceWB As Workbook
Dim targetWB As Workbook
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet

' 打开源工作簿
Set sourceWB = Workbooks.Open("C:\SourceWorkbook.xlsx")
' 打开目标工作簿
Set targetWB = Workbooks.Open("C:\TargetWorkbook\Runing_Project_Status_560A_" & Format(Date, "yyyymmdd") & ".xlsx")
' 获取源工作簿中要复制的sheet
Set sourceSheet = sourceWB.Sheets("data")
' 获取目标工作簿中要粘贴的sheet
Set targetSheet = targetWB.Sheets("data")

' 复制数据
sourceSheet.Range("A1:Z100").Copy
targetSheet.Range("A1:Z100").PasteSpecial xlPasteAll

' 关闭工作簿
sourceWB.Close
targetWB.Close

End Sub

在上述代码中，我们使用了 Workbooks.Open 方法打开源工作簿和目标工作簿，使用了 Format 函数获取当前日期并拼接到目标工作簿的名称中，从而实现了每日变化的目标工作簿路径。我们还使用了 Range 和 PasteSpecial 方法实现了数据的复制和粘贴。