M
Monk
I am attempting to combine data into one excel file from multiple csv files
which are all stored in the same folder. As the csv data is all on the first
sheet of each file, I just want to paste the data from each file into the
first sheet of an excel file called Master.xls. The data can just be pasted
into the next blank cell.
I am attempting to run the following code from Ron De Bruin but I get a
Compile Error Sub or function not defined warning on Get_File_Names. Any
suggestions as to my error would be appreciated.
Sub RDB_Merge_Data()
Dim myFiles As Variant
Dim myCountOfFiles As Long
myCountOfFiles = Get_File_Names( _
MyPath:="F:\Home\Paul\Test", _
Subfolders:=False, _
ExtStr:="*.csv", _
myReturnedFiles:=myFiles)
If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If
Get_Data _
FileNameInA:=True, _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
SourceRng:="A:G", _
StartCell:="", _
myReturnedFiles:=myFiles
End Sub
which are all stored in the same folder. As the csv data is all on the first
sheet of each file, I just want to paste the data from each file into the
first sheet of an excel file called Master.xls. The data can just be pasted
into the next blank cell.
I am attempting to run the following code from Ron De Bruin but I get a
Compile Error Sub or function not defined warning on Get_File_Names. Any
suggestions as to my error would be appreciated.
Sub RDB_Merge_Data()
Dim myFiles As Variant
Dim myCountOfFiles As Long
myCountOfFiles = Get_File_Names( _
MyPath:="F:\Home\Paul\Test", _
Subfolders:=False, _
ExtStr:="*.csv", _
myReturnedFiles:=myFiles)
If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If
Get_Data _
FileNameInA:=True, _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
SourceRng:="A:G", _
StartCell:="", _
myReturnedFiles:=myFiles
End Sub