Macro To Close All CSV Files

[Howardc]

I would like a macro to close all open .csv files

macro tto close all csv files

[Excel Fox]

Use this

Sub CloseCSV()

    Dim wbk As Workbook
    
    For Each wbk In Workbooks
        If wbk.FileFormat = 6 Then
            wbk.Close 0
        End If
    Next wbk
    
End Sub

[Howardc]

Hi

Thanks for the help, much appreciated

[Howardc]

Hi ExcelFox

I while back you provided me with code to close csv files that are open.It worked previosly, but when using it, one of the csv files won't close called

BR1 SalesLedgerOutstandingTransactions.csv

It would be appreciated if you would assist

  For Each wbk In Workbooks
        If wbk.FileFormat = 6 Then
            wbk.Close 0
        End If
    Next wbk
    
End Sub

[snb]

Check the fiteformat of that file.

[Howardc]

Thanks for the reply

I sorted out the problem, by amending the code slightly

 For Each wbk In Workbooks
        If wbk.FileFormat = xlcsv Then
            wbk.Close 
        End If
    Next wbk
    
End Sub