Importing
I'd just import it to a new workbook, then copy what I want and paste to where I
want it. Then close the new workbook.
Option Explicit
Sub testme01()
Dim DestCell As Range
Dim TextWks As Worksheet
Set DestCell = ActiveSheet.Range("a10")
Workbooks.OpenText Filename:="C:\yourfilenamehere.txt", _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Set TextWks = ActiveSheet
TextWks.Range("1:35").Copy _
Destination:=DestCell
TextWks.Parent.Close savechanges:=False
End Sub
Record a macro when you do the importing and replace my Opentext line with
yours.
Dan wrote:
I want to import a file into excel but I want to limit the number of lines
that is imported. For example the file may be 150 lines but I only want the
first 35. I want to automate this task.
Also I want the to import the data at a specific line in excel - not A1,
somewhere around A10.
Thanks
--
Dave Peterson
|