merging multiple workbook into 1

[drefrant]

hello guys ,

i want to merging multiple workbook into single workbook
but i have problem , i cant copy the table from that workbook

can u help me guys ?

here is my code

Sub test()
Dim myDir As String, fn As String
myDir = "F:\myproject\trackingsheet\"
fn = Dir(myDir & "*.xls")
Do While fn <> ""
    If fn <> ThisWorkbook.Name Then
        With Workbooks.Open(myDir & fn)
            With .Sheets(1).Range("A5:L108")
                ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(5) _
                .Resize(.Rows.Count, .Columns.Count).Value = .Value
            End With
            .Close False
        End With
    End If
    fn = Dir
Loop
End Sub

but the table wont move ..


thanks

 

[brettdj]

It worked for me although as I was usign xl2007 I changed this line to find the xlsx files

fn = Dir(myDir & "*.xls*")

When you say you can't copy the table what happens - nothing, error message etc?

Cheers

Dave