VBA Excel

[arjazon]

Ik (een beginneling in VBA) ben bezig om een bestand te importeren met een macro. Hierbij is het de bedoeling dat ik zelf dmv een dialoogboxje de bestandsnaam op kan geven. Ik krijg het alleen zover dat Excel steeds hetzelfde bestand importeert. Wat doe ik verkeerd? Hieronder de code:

Sub BestandImporteren()
'
' BestandImporteren Macro
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Excel VBA Oefenbestanden\Nov2002.txt", Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 4
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(8, 12, 7, 14, 8)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

End With
Range("A2").Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

 

[Roncancio]

Sub BestandImporteren()
'
' BestandImporteren Macro
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Excel VBA Oefenbestanden\Nov2002.txt", Destination:=Range("$A$1"))
.FieldNames = True

In de rode tekst staat de naam van het bestand vermeld. Dit noemen we ook wel hard gecodeerd. Je zult via een cel, inputbox, formulier o.i.d. een naam van een bestand moeten kunnen ingeven zodat de macro dat bestand opent ipv dat steeds hetzelfde bestand geopend wordt.

Met vriendelijke groet,


Roncancio