Opening CSV Files from a Folder and all its Subfolders

[ilak1008]

I tried to search for threads about opening files from multiple subfolders but the following codes does not open files. Could someone please check and edit the code that I have below:

Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = "I:\MainFolder"
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*Report.csv"
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)


If Range("A3").Text = "" Then
Range("A2:N2").Select
Selection.Copy
Else
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
End If
wbResults.Close SaveChanges:=False
Next lCount
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

 

[mcget]

what version of excel are you using? application.filesearch doesnt work on office 2010

 

[mcget]

try

Sub opencsv()
Dim FolderPath As String
Dim FileName As String

FolderPath = "C:\desktop"

FileName = Dir(FolderPath & "*.csv*")

Do While FileName <> ""

Workbooks.Open (FolderPath & FileName)

FileName = Dir()

Loop
End Sub

 

[ilak1008]

try

Sub opencsv()
Dim FolderPath As String
Dim FileName As String

FolderPath = "C:\desktop"

FileName = Dir(FolderPath & "*.csv*")

Do While FileName <> ""

Workbooks.Open (FolderPath & FileName)

FileName = Dir()

Loop
End Sub

Hello mcget,

I tried your code below but nothing happened:
Sub opencsv()
Dim FolderPath As String
Dim FileName As String

FolderPath = "C:\Desktop"

FileName = Dir(FolderPath & "*.csv*")

Do While FileName <> ""

Workbooks.Open (FolderPath & "*.csv")
If Range("A3").Text = "" Then
Range("A2:N2").Select
Selection.Copy
Else
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
End If
Windows(2).Activate
ActiveWorkbook.Close False

FileName = Dir()

Loop
End Sub

 

[ilak1008]

Hello mcget,

Thanks for replying. I tried your code below but nothing happened:

Sub opencsv()
Dim FolderPath As String
Dim FileName As String

FolderPath = "C:\Desktop"

FileName = Dir(FolderPath & "*.csv*")

Do While FileName <> ""

Workbooks.Open (FolderPath & "*.csv")
If Range("A3").Text = "" Then
Range("A2:N2").Select
Selection.Copy
Else
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
End If
Windows(2).Activate
ActiveWorkbook.Close False

FileName = Dir()

Loop
End Sub

 

[ilak1008]

Hello mcget,

Thanks for replying. I tried your code below but nothing happened:

Sub opencsv()
Dim FolderPath As String
Dim FileName As String

FolderPath = "C:\Desktop"

FileName = Dir(FolderPath & "*.csv*")

Do While FileName <> ""

Workbooks.Open (FolderPath & "*.csv")
If Range("A3").Text = "" Then
Range("A2:N2").Select
Selection.Copy
Else
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
End If
Windows(2).Activate
ActiveWorkbook.Close False

FileName = Dir()

Loop
End Sub

Anyone can help? Thanks.

 

[ilak1008]

I've been waiting for any response to my query. Any help would be much appreciated.

 

[ilak1008]

Can anyone else please help me?