this is the other method i used to achieve the same result. is one
preferable to the other?

With ActiveSheet.QueryTables.Add(Connection:= _
"Text;" & "" & FileDir & FilesInPath & "", Destination:=Range("A" &
lastrow))
'.Name = "test"
.FieldNames = False
' .RowNumbers = False
' .FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
' .SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 25
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(1, 0).Select
NumberOfFiles = NumberOfFiles + 1
lastrow = lastrow + 1

--


Gary


"Tom Ogilvy" wrote in message
...
Looks good to me. Why don't you use it to answer Sifar's question about
transposing a text file.

--
Regards,
Tom Ogilvy


"Gary Keramidas" wrote in message
...
i found a few ways to import a text file and was wondering if this
solution
was acceptable. it works for me, anyway.

this code brings in the whole text file

Do While FilesInPath < ""
Open FileDir & FilesInPath For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
Cells(RowNdx, ColNdx).Value = WholeLine
RowNdx = RowNdx + 1
Wend

i needed only line 25, so i adapted it to this:

Do While FilesInPath < ""
Open FileDir & FilesInPath For Input Access Read As #1
x = 1
Do While x < 25
WholeLine = ""
Line Input #1, WholeLine
x = x + 1
Loop

While Not EOF(1)
Line Input #1, WholeLine
Cells(RowNdx, ColNdx).Value = WholeLine
RowNdx = RowNdx + 1
Wend

is this the proper way?


thanks
--


Gary


"Tom Ogilvy" wrote in message
...
You can open a text file with low level io and extract the file name:

http://www.applecore99.com/gen/gen029.asp
File I/O Using VBA
Applecore pages on Microsoft Access


http://support.microsoft.com/default...62&Product=xlw
Working with Sequential Access Files


then construct a string which forms a proper argument to the shell
command.

You can also manipulate Access using OLE Automation. You might look at
the
Automation help file:
http://support.microsoft.com/?kbid=167223
OFF97: Microsoft Office 97 Automation Help File Available



--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Thanks
its working
Maybe you can help more?
If the file name is in a txt file
how can i get this filename?

Best ragards
Alvin


"Tom Ogilvy" wrote:

Sub ABC()
Shell "C:\Windows\Notepad.exe 'C:\Myfolder\Myfile.txt"
End Sub

worked for me.

--
Regards,
Tom Ogilvy



"Alvin Hansen" wrote in
message
...
Hi jari
its the same i want to
I have try call shell but that only working with a exe fil
if i have maby a mdb(access) file
name c:\grub.mdb i want to open this file with access

if i try that with call shell i get a error

alvin


"Jari Toukkari" wrote:

If someone knows how to open a file in another program, I would
be
grateful.
For example open a certain xxxx.txt file in the Notepad.
Regards, Jari


"Alvin Hansen" kirjoitti
...
Hi
How can i with a command buttom stating
another program not excel.

Hope someone can help

alvin