Import code help

[jln via OfficeKB.com]

Ok I need some help with the code below. I recorded this and what i need it
to do is not have a static file name. I need the user to select the file to
be used.


ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;H:\612_Export_MGIC_LPMI_060906_131358.CSV", Destination:=Range
("A1"))
.Name = "612_Export_MGIC_LPMI_060906_131358"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

 

[Dave Peterson]

Use that other code to get the name. Then change this line:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;H:\612_Export_MGIC_LPMI_060906_131358.CSV", _
Destination:=Range("A1"))

to

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & myFileName, _
Destination:=Range("A1"))

ps. It's better to stay in the same thread.