Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combining Data from Multiple Closed Files in Folder
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combining Data from Multiple Closed Files in Folder
Looks like you didn't copy all of the code. It appears there is a Function called Get_File_Names and a Sub called Get_Data that you would need to add to your module. -- Jim Cone Portland, Oregon USA "Monk" wrote in message 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combining Data from Multiple Closed Files in Folder
Thanks. My mistake. All resolved.
"Jim Cone" wrote: Looks like you didn't copy all of the code. It appears there is a Function called Get_File_Names and a Sub called Get_Data that you would need to add to your module. -- Jim Cone Portland, Oregon USA "Monk" wrote in message 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Import data from multiple excel files in one folder | Excel Programming | |||
Extract cell data from multiple files in one folder | Excel Discussion (Misc queries) | |||
Combining multiple files in Excel | Excel Worksheet Functions | |||
combining multiple columns from multiple files | Excel Discussion (Misc queries) | |||
"Folder Select" Dialogue - Opening multiple files from selected folder | Excel Programming |