I want to copy Columns A,D,G, F from multiple workbooks and save it as different sheets of a single

[beginner]

Please see the below code..it will copy all the workbook in a folder to a single workbook with separate sheet but i need only some selected columns...plz help..!!

Sub getSheet()


Path = "E:\Test\"
Filename = Dir(Path & "*.xls")
If there are no Excel files in the folder, exit.
    FilesInPath = Dir(MyPath & "*.xl*")
    If FilesInPath = "" Then
      MsgBox "No files found"
        Exit Sub
    End If
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     MsgBox Filename
    ' Sheet.Copy After:=ThisWorkbook.Sheets(1)
     SourceRcount = sourceRange.Rows.Count
         MsgBox SourceRcount
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
Loop
    ActiveWorkbook.Save
End Sub

 

[Luke M]

Hi beginner, and welcome to the forum!

I'd suggest using Ron's tool here:
http://www.rondebruin.nl/win/addins/rdbmerge.htm

It's already built, bug tested, and has a nice interface. YOu can specify a range of
A:A,D:D,G:G,F:F
that you want to copy

Or, if you want to stick with modifying the code yourself, here's the full body of code:
http://www.rondebruin.nl/win/s3/win008.htm

 

[beginner]

thanks Mr.Luke...