我想使用VBA将外部文件中的数据导入或复制粘贴到当前Excel文件中。但是,外部文件中包含上个月的日期。例如,外部文件名为Report_20221128。每个月,此外部文件日期可能不同,不一定是该月的28日。
以下是我目前所做的工作。
Sub Report_Run()
Dim wb As Workbook
Dim file As Variant
Dim wbrow As Long, wbrow2 As Long, wbrow3 As Long
Day = Application.WorksheetFunction.EoMonth(Now(), "-1")
Set wb = Workbooks("Run Report " & VBA.Format(LDay, "ddmmyyyy") & ".xlsb")
wb.Worksheets("DD").Activate
wbrow3 = Cells(Rows.Count, "A").End(xlUp).Row
file = Dir(Environ("userprofile") & "\Desktop\Reports\Report_" & Format(Date, "yyyymmdd") & ".xlsx")
End Sub
但是,代码无法读取此行
file = Dir(Environ("userprofile") & "\Desktop\Reports\Report_" & Format(Date, "yyyymmdd") & ".xlsx")
因此,我应该如何设置代码,使它可以读取这个外部文件,其中包含任何日期的前一个月?
2条答案
按热度按时间5anewei61#
从与模式匹配的文件导入工作表
rdrgkggo2#
使用
FileSystemObject
和Like