VBA - Open files and copy certain data

prabby25101981

Active Member
Joined
Jul 28, 2010
Messages
348
Hi Guys,

Can someone guide as to how I can one by one open all files in one folder, copy certain data from each of the file, and paste it in another file through VBA?

I am pretty much OK with VBA but have never used file and folder codes...

Thanks!
 

Some videos you may like

Excel Facts

Pivot Table Drill Down
Double-click any number in a pivot table to create a new report showing all detail rows that make up that number

daverunt

Well-known Member
Joined
Jul 9, 2009
Messages
1,823
Office Version
2013
Platform
Windows
Something along these lines?


Code:
'Select ResultFile
    ResultFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
    "*.xls*", 1, "Select Result file", "Open", False)
 
'If the user cancels then exit
    If TypeName(ResultFile) = "Boolean" Then
        Exit Sub
    End If
 
'Open Result File
    Workbooks.Open ResultFile
    ResultFile = Dir(ResultFile)
 
 
'Select source file directory
  SourceFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
    "*.xls*", 1, "Select Source Files", "Open", False)
 
'If the user cancels then exit
   If TypeName(SourceFile) = "Boolean" Then
        Exit Sub
    End If
 
'Set xls as SourceFile
      SourceFile = Dir("*.xls")
 
  Do While SourceFile <> ""
 
       x = 1
       Workbooks.Open SourceFile
       Set XLSFile = ActiveWorkbook
       x = x + 1
 
       ---------------Do something with the source file-------------------       
'Activate the result file               
       Windows(ResultFile).Activate
 
     ---------------Do something with the result file-------------------    
 
 
 'Close open source file
    XLSFile.Close False
 
  SourceFile = Dir
  Loop
End Sub
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,198
Messages
5,509,774
Members
408,752
Latest member
KrisF

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top