VBA根据日期提取同名CSV文件数据

Excel操作界面：

操作界面

CSV文件数据格式

csv文件数据格式
要求
在DTPicker1里选择日期，自动获取和日期同名得CSV文件数据。

---

Sub CAT()
    Dim Wb As Workbook
    Dim Arr, Mypath$, Myname$
    Mypath = ThisWorkbook.Path & "\数据源\"    '//路径
    Myname = Replace(Sheet1.DTPicker1.Value, "/", "") & ".csv"  '//文件名称
    Application.ScreenUpdating = False
    On Error GoTo 100:  '如果找不到文件，跳转代码提示并退出程序。
    Set Wb = Workbooks.Open(Mypath & Myname) ''//打开CSV文件
    Arr = Wb.ActiveSheet.Range("A1").CurrentRegion '//将数据放到数组arr
    Wb.Close False  '//关闭CSV文件
    With Sheet1  '//输出数据
        .Range("a5:c55555").ClearContents
        .Range("A5").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    End With
    Application.ScreenUpdating = True
    Exit Sub
100:
    MsgBox "文件不存在"
End Sub

---

示例文件下载：
链接: http://pan.baidu.com/s/1i46q8hn 密码: eggq