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
