每天系统会根据日期自动生成一个文件夹，在文件夹里生成一个表格，例如：D:/数据/20200413/A.xlsx，怎么写VBA能让我打开B. XLSX时，自动把A. xlsx里sheet1的全部内容自动复制到B. xlsx的sheet2里？多谢各位大神了！
代码如下：
可以用按钮指定宏，也可以利用工作簿的open事件程序激活过程
Sub test()
Dim Mypath$
Dim WB As Workbook
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Sheet2")
Mypath = "D:\Data\" & Format(Date, "yyyymmdd") & "\A.xlsx"
If Dir(Mypath) <> "" Then
Set WB = Workbooks.Open(Mypath)
WB.Worksheets("Sheet1").UsedRange.Copy sht.Range("a1")
WB.Close False
End If
End Sub
多谢大神！在弱弱的问一句，如果读取系统前一天日期的文件夹，需要怎么改一下？
追答把Date改成Date-1即可
即：Mypath = "D:\Data\" & Format(Date-1, "yyyymmdd") & "\A.xlsx"
多谢大神！！！我找了好久！终于知道答案了！再次感谢！！！
温馨提示：答案为网友推荐，仅供参考
