Dir无法使用Excel 2016列出csv文件

时间:2017-11-27 15:27:51

标签: excel vba

我想在Excel 2016中使用dir函数,但它不起作用:

fPath = "C:\csv"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
fCSV = Dir(fPath & "*.csv")

    Do While Len(fCSV) > 0
        Set wbCSV = Workbooks.Open(fPath & fCSV)
        ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count)

        fCSV = Dir
    Loop

Set wbCSV = Nothing

我存储了c:\csv个csv文件。

fCSV始终等于''

任何想法?

0 个答案:

没有答案