TEXT TO EXCEL | EXCEL VBA

BY THIS VBA ENABLED EXCEL SHEET YOU CAN TRANSFER TEXT FILE DIRECTLY IN EXCEL WITH THERE OWN COLUMNS

VBA Coding make our work very easy. Write one and use lifetime.
With this coding you can select your text file which you want to import in excel sheet.
It will divide texts to separate columns in excel. If you have rich text files, it is for you.
Just paste below simple coding in your excel sheet VBA modules and create a macro enabled button to import text to excel : 
Option Explicit
Sub ImportTextFile()
Dim vFileName

On Error GoTo ErrorHandle

‘WWW.LEARNWELLS.COM

vFileName = Application.GetOpenFilename(“Text Files (*.txt),*.txt”)


If vFileName = False Or Right(vFileName, 3) <> “txt” Then
   GoTo BeforeExit
End If


Application.ScreenUpdating = False


Workbooks.OpenText Filename:=vFileName, _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
    Comma:=False, Space:=False, Other:=False, _
    TrailingMinusNumbers:=True, Local:=True


Columns(“A:A”).EntireColumn.AutoFit

BeforeExit:
Application.ScreenUpdating = True
Exit Sub
ErrorHandle:
MsgBox Err.Description
Resume BeforeExit
End Sub

It is very short code and very useful for your excel and also for your learning.
You can download the Excel sheet with VBA code with below download Link :


  

Leave a Comment