VBA根據(jù)日期提取同名CSV文件數(shù)據(jù)

Excel操作界面：


操作界面

CSV文件數(shù)據(jù)格式


csv文件數(shù)據(jù)格式

要求
在DTPicker1里選擇日期，自動獲取和日期同名得CSV文件數(shù)據(jù)。 
Sub CAT()
    Dim Wb As Workbook
    Dim Arr, Mypath$, Myname$
    Mypath = ThisWorkbook.Path & "\數(shù)據(jù)源\"    '//路徑
    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 '//將數(shù)據(jù)放到數(shù)組arr
    Wb.Close False  '//關閉CSV文件
    With Sheet1  '//輸出數(shù)據(jù)
        .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

最后編輯于 ：
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務。

推薦閱讀更多精彩內(nèi)容