Choose file for Macro to import

[RasmusMoerch]

Hi

I have recorded a macro that gets external data from a text file and sorts it. However the macro always gets the same file, from the same location.
How do I make the macro ask me for a file to import?

And yes. This is my first macro... So I need all the help I can get.

 

[somesoldiers]

here's 1 i use which gives the user the option to select the file rather than picking one up directly

Sub ClientMap()
Dim noInfo As String
 
MacroFile = ActiveWorkbook.Name
 
Dim strCurDir As String
 
'// Keep Original Dir
strCurDir = CurDir
 
SetCurrentDirectory "SET DIRECTORY HERE”
 
 'open
newfn = Application.GetOpenFilename(fileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="Please select your File")’ change excel version to suit
If newfn = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.Open filename:=newfn
End If
 
 
‘INSERT WHAT YOU NEEED TO DO HERE
 
ActiveWorkbook.Close
 
End Sub

 

[RasmusMoerch]

Thanks for the reply.

Some of the stuff I need to do is done in the import wizard. How do I put that in your code?
Sub Macro1()
'
' Macro1 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;H:\Excell\Fra PHAM\Filename.DTA", _
Destination:=Range("$A$8"))
.Name = "Filename"
.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 = 56
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 1, 9, 9, 9, 9, 9, 9)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

 

[somesoldiers]

should be just here

‘INSERT WHAT YOU NEEED TO DO HERE