每天系统会根据日期自动生成一个文件夹,在文件夹里生成一个表格,例如: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"
多谢大神!!!我找了好久!终于知道答案了!再次感谢!!!