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

Question

I want to transfer data from one workbook to another. The destination workbook is changing it's name every day according to the date. I used this code:

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")` 

It gives me a runtime error 1004. But when I change the 3 variables(MyYear,MyMonth,MyCage) to 2018,February,MainTest 08-02-2018 which gives me:

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

it works. What did I do wrong with the variables?

Answer 1

Try the following code

Sub 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)

End Sub