Bestand importeren

[Jan1978]

Hallo helpers

Als ik bij excel menu het tabblad gegevens selecteer kan ik daar kiezen voor Van Tekst.
Nu heb ik dit gedaan met de macro op opnemen.

Deze code heb ik onder een knop geplakt.
Maar nu tijdens het uitvoeren van de code krijg ik een fout maar ik kan niet achterhalen waar ik de oplossing moet zoeken.

Kan iemand mijn hiermee helpen.
De code stop dan en .Commandtype = 0 is dan geel.

Private Sub CommandButton2_Click()
Dim J As String

ChDir "C:\BC\Spf\"
J = Dir("*" & Range("Z5") & "*.anc*")

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;J", _
        Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "*"
        .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 = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = True
        .TextFileOtherDelimiter = ""
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Al vast bedank voor je hulp.

Groet Jan

 

[OctaFish]

En bij welke regel blijft hij hangen?

 

[Jan1978]

Hallo Michel

Hij blijf hangen bij de regel.

.commandtype = 0

Grt jan

 

[OctaFish]

En J is gevuld? Want het lijkt er al op alsof hij de connectie niet kan maken.

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & J & ", Destination:=Range("$A$1"))
        .CommandType = 0

zou mij ook logischer lijken.

 

[Jan1978]

Hallo Michel

Ik heb jou code toegepast en het probleem is opgelost.
Bedankt.


Grt Jan