Macro To Close All CSV Files

[Howardc]

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

macro tto close all csv files (http://www.mrexcel.com/forum/excel-questions/706530-macro-tto-close-all-csv-files.html)

[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