2个工作簿之间的数据传输

Question

我想将数据从一个工作簿传输到另一个工作簿。 目标工作簿每天都会根据日期更改其名称。 我使用以下代码：

Dim MyMonth,MyYear,MyCage

 MyMonth = MonthName(Month(Date))
 MyYear = Year(Date)
 MyCage = "MainTest" & " " & MyDate
 My Date=Format(Date,"dd-mm-yyyy")

Dim MyFile As Workbook

Set MyFile = Workbooks.Open("C:\VBA1MC\MyYear\TestMC\MyMonth\MyCage")` 

它给了我一个运行时错误1004。但是当我将3个变量（MyYear，MyMonth，MyCage）更改为2018年2月，MainTest，2018年2月8日，这给了我：

'Set MyFile = Workbooks.Open("C:\VBA1MC\2018\TestMC\February\MainTest 08-02-2018")'

有用。 我对变量做了什么错？

Answer 1

试试下面的代码

子TestIt（）

Dim MyCage as string
Dim curDte As Date
Dim myDate As String, MyMonth As String, MyYear As String

MyMonth = MonthName(Month(Date))
MyYear = Year(Date)

curDte = Now
myDate = Format(curDte, "DD-MM-YYYY")
MyCage = "MainTest" & " " & myDate
Dim MyFile As Workbook

Set MyFile = Workbooks.Open("C:\VBA1MC\" & MyYear & "\TestMC\" & MyMonth & "\" & MyCage)

结束子