Samle data fra mange workbooks i en workbook

vi arbejder med noget lignende her http://www.eksperten.dk/spm/807865

Prøver med en anden makro, der ser sådan her ud:

Option Explicit
Sub Example()
    Const strRootFolder_c As String = "C:\Test\"
    Const lngLwrBnd_c As Long = 1
    Const lngOffset_c As Long = 1
    Dim fs As Office.FileSearch
    Dim lngFileIndex As Long
    Dim wbNew As Excel.Workbook
    Dim wsTarget As Excel.Worksheet
    Dim wbCrnt As Excel.Workbook
    Dim wsOne As Excel.Worksheet
    Set fs = Excel.Application.FileSearch
    fs.NewSearch
    fs.FileType = msoFileTypeExcelWorkbooks
    fs.LookIn = strRootFolder_c
    fs.Execute
    If fs.FoundFiles.Count < lngLwrBnd_c + 1 Then
        VBA.MsgBox _
        "Cannot find any workbooks in the specified root folder. Please check to make sure you have excel workbooks in the location specified. Operation aborted.", _
        vbExclamation Or vbSystemModal, "No Workbooks Found"
        Exit Sub
    End If
    Set wbNew = Excel.Workbooks.Add
    Set wsTarget = wbNew.Worksheets(lngLwrBnd_c)
    For lngFileIndex = lngLwrBnd_c To fs.FoundFiles.Count
        Set wbCrnt = Excel.Workbooks.Open(fs.FoundFiles(lngFileIndex), False, _
        False, Password:="foo")
        Range("D2") = Application.ActiveWorkbook.Name
        Set wsOne = wbCrnt.Worksheets(lngLwrBnd_c + 1)
        wsOne.UsedRange.Copy wsTarget.Cells(wsTarget.UsedRange.Rows.Count, lngLwrBnd_c)
        wbCrnt.Close False
    Next
    VBA.MsgBox "All worksheets have been merged.", vbInformation Or _
    vbSystemModal, "Operation Complete"
End Sub


Problemet er nu  blot, at den nederste række data fra hver workbook bliver overskrevet med overskrifter fra den næste workbook. Feks. den første workbook der kopieres indeholder data  til og med række 100, og når data fra næste workbook herefter kopieres indsættes overskrifterne i række 100 og data i række 101->. Dvs. jeg mister den nederste række data fra hver workbook, pånær den sidst kopierede workbook.

Har prøvet lidt forskelligt og tror det ligger i linjen
wsOne.UsedRange.Copy wsTarget.Cells(wsTarget.UsedRange.Rows.Count, lngLwrBnd_c), hvor jeg skal tilføje noget OffSet-halløj, men lige hvordan ...?

Fandt selv løsningen:

Option Explicit
Sub Example()
    Const strRootFolder_c As String = "C:\Test\"
    Const lngLwrBnd_c As Long = 1
    Const lngOffset_c As Long = 1
    Dim fs As Office.FileSearch
    Dim lngFileIndex As Long
    Dim lngRowCnt As Long
    Dim wbNew As Excel.Workbook
    Dim wsTarget As Excel.Worksheet
    Dim wbCrnt As Excel.Workbook
    Dim wsOne As Excel.Worksheet
    Set fs = Excel.Application.FileSearch
    fs.NewSearch
    fs.FileType = msoFileTypeExcelWorkbooks
    fs.LookIn = strRootFolder_c
    fs.Execute
    If fs.FoundFiles.Count < lngLwrBnd_c Then
        VBA.MsgBox _
        "Cannot find any workbooks in the specified root folder. Please check to make sure you have excel workbooks in the location specified. Operation aborted.", _
        vbExclamation Or vbSystemModal, "No Workbooks Found"
        Exit Sub
    End If
    Set wbNew = Excel.Workbooks.Add
    Set wsTarget = wbNew.Worksheets(lngLwrBnd_c)
    For lngFileIndex = lngLwrBnd_c To fs.FoundFiles.Count
        If (lngFileIndex = lngLwrBnd_c) Then lngRowCnt = 0 Else lngRowCnt = 1
        Set wbCrnt = Excel.Workbooks.Open(fs.FoundFiles(lngFileIndex), False, _
        False, Password:="foo")
        Range("D2") = Application.ActiveWorkbook.Name
        Set wsOne = wbCrnt.Worksheets(lngLwrBnd_c + 1)
        'MsgBox wsTarget.UsedRange.Rows.Count + 1
        wsOne.UsedRange.Copy wsTarget.Cells(wsTarget.UsedRange.Rows.Count + lngRowCnt, lngLwrBnd_c)
        wbCrnt.Close False
    Next
    VBA.MsgBox "All worksheets have been merged.", vbInformation Or _
    vbSystemModal, "Operation Complete"
End Sub

Oprettede ny variabel "lngRowCnt", der sættes i første linje i for-endfor løkken som "If (lngFileIndex = lngLwrBnd_c) Then lngRowCnt = 0 Else lngRowCnt = 1". Værdien i "lngRowCnt" bruges i den ovenfor nævnte linje, der nu ser således ud "wsOne.UsedRange.Copy wsTarget.Cells(wsTarget.UsedRange.Rows.Count + lngRowCnt, lngLwrBnd_c)"
Dvs. for fil nr. 1 tillægges ingen værdi (lngRowCnt=0), mens den for de efterfølgende filer tillægges værdien 1 (lngRowCnt=1). Dette giver netop den ønskede løsning, hvor nederste række data nu altid er med