Importing a text file to a range : Excel to Text File « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Excel » Excel to Text File 




Importing a text file to a range
 
Sub ImportRange2()
    Set ImpRng = ActiveCell
    Open ThisWorkbook.Path & "\textfile.txt" For Input As #1
    txt = ""
    Application.ScreenUpdating = False
    Do While Not EOF(1)
        Line Input #1, vData
        For i = To Len(vData)
            char = Mid(vData, i, 1)
            If char "," Or i = Len(vDataThen
                Debug.Print txt
            Else
                If char <> Chr(34Then _
                  txt = txt & Mid(vData, i, 1)
            End If
        Next i
    Loop
    Close #1
    Application.ScreenUpdating = True
End Sub

 














Related examples in the same category
1.TextToColumns Example
2.Exporting a range to a text file
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.