i do this to import a file, but i have to specify the path:
With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;C:\DATA.txt", _
Destination:=Range("A1"))
.Name = "DATA"
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2)
.TextFileFixedColumnWidths = Array(8, 13, 7, 11, 16)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

how do i do this so the user can choose the document, a different pat
and name every time?

--
Message posted from http://www.ExcelForum.com

Sub GetFile()
Dim fName as String
fName = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt")
if fName < "False" then

With ActiveSheet.QueryTables.Add(Connection:= _
fname, _
Destination:=Range("A1"))
..Name = "DATA"
..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 = xlFixedWidth
..TextFileTextQualifier = xlTextQualifierDoubleQuote
..TextFileConsecutiveDelimiter = False
..TextFileTabDelimiter = True
..TextFileSemicolonDelimiter = False
..TextFileCommaDelimiter = False
..TextFileSpaceDelimiter = False
..TextFileOtherDelimiter = "="
..TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2)
..TextFileFixedColumnWidths = Array(8, 13, 7, 11, 16)
..TextFileTrailingMinusNumbers = True
..Refresh BackgroundQuery:=False
End With
End If
End Sub

--
Regards,
Tom Ogilvy


"cecilia12345" wrote in message
...
i do this to import a file, but i have to specify the path:
With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;C:\DATA.txt", _
Destination:=Range("A1"))
.Name = "DATA"
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2)
.TextFileFixedColumnWidths = Array(8, 13, 7, 11, 16)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

how do i do this so the user can choose the document, a different path
and name every time?!


---
Message posted from http://www.ExcelForum.com/

are you sure that fName should be string? because every time i get t
the
--
" With ActiveSheet.QueryTables.Add(Connection:= _
NombreArchivo, _
Destination:=Range("A1")) " - part

it stops!!!!
the alert it gives me says : "error defined by application or object

--
Message posted from http://www.ExcelForum.com

oh now i realized what the problem was.. i just had to add
NombreArchivo = "TEXT;" & NombreArchivo
after the condition...!!!
well, just in case somebody wanted to know...

--
Message posted from http://www.ExcelForum.com

Yes, that was my oversight. Sorry about that.

--
Regards,
Tom Ogilvy

"cecilia12345" wrote in message
...
oh now i realized what the problem was.. i just had to add
NombreArchivo = "TEXT;" & NombreArchivo
after the condition...!!!
well, just in case somebody wanted to know....


---
Message posted from http://www.ExcelForum.com/

ok, thanks for your help!!!!!!

--
Message posted from http://www.ExcelForum.com

Can someone please explain what the outcome of the "nombre...."
modification was here. I've been playing around with it but cant seem
to get this macro working!

Many thanks


---
Message posted from http://www.ExcelForum.com/

Turn on you macro recorder and do
Data=Get External Data and select import text file . . .

--
Regards,
Tom Ogilvy



"ian123" wrote in message
...
Can someone please explain what the outcome of the "nombre...."
modification was here. I've been playing around with it but cant seem
to get this macro working!

Many thanks


---
Message posted from http://www.ExcelForum.com/