open notepad, select all, copy, paste in excel

[ilyaskazi]

open notepad file "MYFILE.txt" through vba, select all data, copy and paste in excel

[johnske]

Hi,

Will this do? (write your own path - the one given here requires the notepad and workbook to be in the same folder {or on desktop})

Option Explicit

Sub ImportText()
Dim Text, N&
Application.ScreenUpdating = False
'put your own path below
Open ActiveWorkbook.Path & "\MYFILE.txt" For Input As #1
On Error Resume Next
For N = 1 To 60 '< put num lines to suit
   Input #1, Text
   Range("a" & N) = Text
Next
Close #1
End Sub

HTH,
John

[Bob Phillips]

Option Explicit
Sub ImportText()
Dim Text, N&
Application.ScreenUpdating = False
'put your own path below
Open ActiveWorkbook.Path & "\MYFILE.txt" For Input As #1
On Error Resume Next
For N = 1 To 60 '< put num lines to suit
   Input #1, Text
   Range("a" & N) = Text
Next
Close #1
End Sub

You can dynamically loop through file, you don't need to know the # of lines

Sub ImportText()
Dim Text
Dim i As Long
Application.ScreenUpdating = False
'put your own path below
Open ActiveWorkbook.Path & "\MYFILE.txt" For Input As #1
i = 1
Do While Not EOF(1) ' Loop until end of file.
Input #1, Text
Range("a" & i) = Text
i = i + 1
Loop
Close #1
End Sub

[ilyaskazi]

MYFILE contains vbTabs in lines

if vbtabs found in any line, then put next tab data on next column's cell.

[ilyaskazi]

plz somebuddy help me....

[TonyJollans]

Why not use Excel's built-in capacity to do this ..

    Set myPlace = ActiveCell
    Workbooks.OpenText _
        Filename:=ActiveWorkbook.Path & "\MYFILE.txt", _
        DataType:=xlDelimited, Tab:=True
    ActiveSheet.UsedRange.Copy Destination:=myPlace
    ActiveWorkbook.Close

[ilyaskazi]

EXCELLENT !!!!

and thanX for d same..