如何打开文件夹中的所有文件（xls 和 csv 格式文件） - VBA答案

【问题标题】：How to open all files in the folder (xls and csv format files) - VBA如何打开文件夹中的所有文件（xls 和 csv 格式文件） - VBA
【发布时间】：2017-08-16 10:34:55
【问题描述】：

我编写了用于将多个工作簿中的数据合并到一个工作簿的代码，并且该代码仅打开 xls 格式文件，但文件夹中的某些文件具有 csv 格式。如何打开文件夹中的csv和xls文件？任何建议都将不胜感激

Option Explicit

Sub ImportGroups()
Dim fPATH As String, fNAME As String
Dim LR As Long, LastRow As Long
Dim wb2, wb1 As Workbook, ofs As Worksheet

Set ofs = ThisWorkbook.Sheets("Sheet3")


fPATH = "C:\Users\ashokkumar.d\Desktop\MFI\"       

fNAME = Dir(fPATH & "*.xls")        'get the first filename in fpath

Do While Len(fNAME) > 0
    Set wb1 = Workbooks.Open(fPATH & fNAME)   'open the file

    LastRow = ofs.Range("B" & Rows.Count).End(xlUp).Row
    ofs.Range("B" & LastRow).Offset(1, -1).Value = fNAME

    Sheets("Input").Range("C8:J12").Copy
    ofs.Range("B" & LastRow).Offset(1, 0).PasteSpecial xlPasteValues



    wb1.Close False   'close data workbook
        fNAME = Dir         'get the next filename
Loop


 LR = ofs.Range("C" & Rows.Count).End(xlUp).Row
 ofs.Range("E2:I" & LR).Select
 Selection.NumberFormat = "0.00%"
 Application.ScreenUpdating = True
 ofs.Range("A1:Z" & LR).Select
 With Selection
    WrapText = True
    End With

End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

就像这样：

fNAME = Dir(fPATH & "*")        'get the first filename in fpath
Do While Len(fNAME) > 0
    dim ext as string, p as integer
    p = inStrRev(fName, ".")
    ext = ucase(mid(fName, p+1))
    if ext = "CSV" or ext = "XLS" or ext = "XLSX" or ext = "XLST" then
        Set wb1 = Workbooks.Open(fPATH & fNAME)   'open the file
        ...
    end if

【讨论】：

晚 16 秒 ^^。但是你的答案更好，因为你有所有来自 excel 的结尾。所以 1+

【解决方案2】：

您可以获取文件夹中的所有文件，然后检查文件是 CSV 还是 xlsx 文件。然后像你一样打开它。

    Option Explicit

    Sub ImportGroups()
    Dim fPATH As String, fNAME As String
    Dim LR As Long, LastRow As Long
    Dim wb2, wb1 As Workbook, ofs As Worksheet

    Set ofs = ThisWorkbook.Sheets("Sheet3")


    fPATH = "C:\Users\ashokkumar.d\Desktop\MFI\"       

    fNAME = Dir(fPATH & "*.*")        'get the first filename in fpath

    Do While Len(fNAME) > 0
If Right(fNAME, 4) = "xlsx" Or Right(fNAME, 4) = ".csv" Then
        Set wb1 = Workbooks.Open(fPATH & fNAME)   'open the file

        LastRow = ofs.Range("B" & Rows.Count).End(xlUp).Row
        ofs.Range("B" & LastRow).Offset(1, -1).Value = fNAME

        Sheets("Input").Range("C8:J12").Copy
        ofs.Range("B" & LastRow).Offset(1, 0).PasteSpecial xlPasteValues



        wb1.Close False   'close data workbook
            fNAME = Dir         'get the next filename
end if
    Loop


     LR = ofs.Range("C" & Rows.Count).End(xlUp).Row
     ofs.Range("E2:I" & LR).Select
     Selection.NumberFormat = "0.00%"
     Application.ScreenUpdating = True
     ofs.Range("A1:Z" & LR).Select
     With Selection
        WrapText = True
        End With

    End Sub

【讨论】：