Macro loopt niet zoals verwacht

[CyberJaap]

[edit 10-11-2008]
Niet opgelost, maar ga het op een andere manier proberen.
Vraag derhalve overbodig geworden


Middels een macro wil ik geautomatiseerd 4 CSV-bestanden importeren welke per week een afwijkende bestandsnaam hebben i.v.m. weeknummer
Bij aanvang van de macro wordt gevraagd om een weeknummer in te geven, daarna moet a.d.h.v. nummer 2 bestande van de voorgaande week en 2 bestanden van 2 weken geleden geimporteerd worden.

Ik begin met het volgende

'=======================================================
' Declareren variabelen
'=======================================================

    Dim intDezeWeek As Integer
    Dim intVorigeWeek As Integer
    Dim intTweeWeekGeleden As Integer
       
    Dim strVorigeWeek As String
    Dim strTweeWeekGeleden As String
   
    Dim strBestandsnaam1 As String
    Dim strBestandsnaam2 As String
    Dim strBestandsnaam3 As String
    Dim strBestandsnaam4 As String

    intDezeWeek = InputBox("Geef het huidige weeknummer in", "Opvragen weeknummer", , 2800, 3600)
    intVorigeWeek = intDezeWeek - 1
    intTweeWeekGeleden = intDezeWeek - 1
    
    strVorigeWeek = CStr(intVorigeWeek)
    strTweeWeekGeleden = CStr(intTweeWeekGeleden)

Vervolgens worden de bestandsnamen gedefinieerd

    strBestandsnaam1 = ("rolcontainersaldi-nul-klanten-met-omzet-Week-" & strVorigeWeek & "-2008.csv")
    strBestandsnaam2 = ("rolcontainersaldi-ongelijk-nul-klanten-met-omzet-Week-" & strVorigeWeek & "-2008.csv")
    strBestandsnaam3 = ("rolcontainersaldi-nul-klanten-met-omzet-Week-" & strTweeWeekGeleden & "-2008.csv")
    strBestandsnaam4 = ("rolcontainersaldi-ongelijk-nul-klanten-met-omzet-Week-" & strTweeWeekGeleden & "-2008.csv")

en daarna geimporteerd worden (voor elk bestand wordt gelijkwaardige code gebruikt)

    Sheets("Huidige Week").Select
    With ActiveSheet.QueryTables.Add("TEXT;" & strBestandsnaam1, Range("A3"))
        .Name = "Rolcontainer_saldi_huidige_week"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 4
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 9, 9, 9, 9, 9, 1, 1, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _
        9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
        .TextFileTrailingMinusNumbers = True
    End With

De macro loopt wel, maar aan het eind van het riedeltje zijn de gegevens NIET geimporteerd.
Ziet iemand wellicht waar ik de mist in ga ?? of is er meer info gewenst?