Sub import()
Dim fs
Set fs = Application.FileSearch
With fs
.LookIn = "C:\temp"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(i) _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False
ActiveWorkbook.SaveAs Left(.FoundFiles(i), Len(.FoundFiles(i)) - 4), FileFormat:=xlNormal
ActiveWorkbook.Close SaveChanges:=True
Next i
End If
End With
End Sub