从许多文件类型的目录中导入Excel中的.csv

Question

您好，我有一个文件夹，其中包含82个各种类型的文件（.cpg，.dpf，.csv等...）

我希望excel进入该文件夹，仅导入应该有24个文件的.csv文件。 由于某种原因，这似乎要导入49张纸而不是24张纸，而且我也想为每个语句添加一个if语句，但if语句草率，但不知道更好的方法？有人可以建议一种更好的方法吗？ 下面是我使用的代码。

Sub BringInCSV()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As 
Object
Dim WS As Worksheet
Dim sheetname As String
Dim sheetname2() As String
Dim Folder As String


Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")


Folder = InputBox("Where are the files located?")
On Error Resume Next
Set dirObj = mergeObj.GetFolder(Folder)
Set filesObj = dirObj.Files
For Each everyObj In filesObj
 If Right(everyObj, 4) = ".csv" Then
    Set bookList = Workbooks.Open(everyObj)
    Range("A1:CO" & Range("A65536").End(xlUp).Row).Copy
    ThisWorkbook.Worksheets(1).Activate
    Set WS = Sheets.Add
    Range("A65536").End(xlUp).PasteSpecial
    Application.CutCopyMode = False
    sheetname = everyObj
    sheetname2 = Split(sheetname, "rollup_", 2)
    Sheets(ActiveSheet.Name).Name = Replace(Left(sheetname2(1),         
Len(sheetname2(1)) - 4), "_", " ")
End If
On Error Resume Next
bookList.Close

Next
End Sub

Answer 1

原来数据来自Mac，它在目录中放置了一堆隐藏文件，因此我将if语句更改为

 If Right(everyObj, 4) = ".csv" And Mid(everyObj, Len(Folder) + 2, 2) <> "._" Then