Joe,
Copy the code below into a module in a new workbook, then save it.
Run the code, and select the files that you want to combine onto one sheet.
The code assumes that the data starts in cell A1 (once imported) and is
contiguous (no entirely blank rows).
This code also does not identify the source file, but that is easy to add.
See if it does most of what you want.
HTH,
Bernie
MS Excel MVP
Option Explicit
Sub JMAConsolidateSub()
Dim filearray As Variant
Dim i As Integer
With Application
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False
End With
filearray = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(filearray) Then
For i = LBound(filearray) To UBound(filearray)
Workbooks.OpenText Filename:=filearray(i), _
Origin:=437, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=True, Comma:=True, Space:=False, _
Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Range("A1").CurrentRegion.Copy _
ThisWorkbook.Worksheets(1).Range("A65536").End(xlU p)(2)
ActiveWorkbook.Close
Next i
ThisWorkbook.SaveAs Application.GetSaveAsFilename("Consolidated
file.xls")
End If
With Application
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
"JMA" wrote in message
...
Bernie-
Here is a macro of how I have been importing the text files and moving
them
into the "master" workbook:
ChDir "C:\Test"
Workbooks.OpenText Filename:="C:\Test\IP-26F1.TXT", Origin:=437,
StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True,
Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1),
TrailingMinusNumbers _
:=True
Sheets("IP-26F1").Select
Sheets("IP-26F1").Move Befo=Workbooks("Test.xls").Sheets(1)
Please let me know if you need anything else. Thank you very much for
your
help!
Joe
"Bernie Deitrick" wrote:
Joe,
Record a macro of your opening the file and importing the data, and then
post it here. We can change it to do the same on every file within the
folder, with the added step of combining the resulting sheets into 1
sheet.
HTH,
Bernie
MS Excel MVP
"JMA" wrote in message
...
Is it possible to import several Text files into Excel through one
step?
I
realize that each file will open a seperate workbook, but if I could
cut
out
the step of opening every file individually it would save a lot of
time.
The files are ASCII format (text delimited), which were converted from
an
*.SBF file. The SBF files I am referring to are datalogging files
generated
from the software we use for our mechanical testing rig. The test
computer
and software is supplied by Servotest
(http://www.servotest.com/homepage.html). I am looking to just
increase
my
efficiency on importing the data, since I perform this task regularly.
Thank you for your help-
Joe