VBA open text file using File System Object

Home/VBA/VBA open text file using File System Object

VBA code to open text file will help you to read the text file data. VBA open text file example will show you how to open a text file using FileSystem Object. We can open the Text File for Reading the data, Appending the data and writing the data.

PREMIUM TEMPLATES LIMITED TIME OFFER

ON SALE80% OFF

50+ Project Management Templates Pack
Excel PowerPoint Word

Advanced Project Plan & Portfolio Template
Excel Template

Business Presentations Templates Pack
PowerPoint Slides

20+ Excel Project Management Pack
Excel Templates

20+ PowerPoint Project Management Pack
PowerPoint Templates

10+ MS Word Project Management Pack
Word Templates


VBA code to open text file using FileSystem Object

Following is the VBA syntax and VBA example to open a file using File system object in VBA.

VBA code to open text file using FileSystem Object: Syntax

Here is the VBA code and syntax to open the text file using VBA Fiel System Object. Here we need to pass the text file path to open using VBA.

myFSO.OpenTextFile("C:\temp\test.txt")

VBA open text file using FileSystem Object: Syntax

Following is the example VBA code to open the text file suing VBA. Here we need to add reference to ‘Microsoft Scripting Runtime library‘ to use the FSO library in our code. First we are creting the FileSystem Object and opening the text file. Then we are reading the each line in the text file until end of the File.

Sub sb_VBA_To_Open_TextFile_FSO()
Dim strFile As String
Dim myFSO As New FileSystemObject
strFile = "C:\temp\test.txt"
Set fso = myFSO.OpenTextFile(strFile)
Do Until fso.AtEndOfStream
MsgBox fso.ReadLine
Loop
End Sub

VBA code to open text file using FileSystem Object: Explained Code

‘Starting procedure to write VBA code to open text file using File system object
Sub sb_VBA_To_Open_TextFile_FSO_C()

‘Delcaring the variables

‘strFile is declared as string to capture file name
Dim strFile As String

‘myFSO is declared as new FileSystemObject
Dim myFSO As New FileSystemObject

‘Assigning the file path to strFile variable
strFile = “C:\temp\test.txt”

‘opening the file with File system object and setting fso object
Set fso = myFSO.OpenTextFile(“C:\temp\test.txt”)

‘Reading the data until end of the file by each line using do loop statement
Do Until fso.AtEndOfStream
‘displaying the each line
MsgBox fso.ReadLine

‘Ending the do loop
Loop

‘Ending the sub procedure
End Sub

LIMITED TIME OFFER
By |April 22nd, 2014|VBA|2 Comments

About the Author:

PNRao is a passionate business analyst and having close to 10 years of experience in Data Mining, Data Analysis and Application Development. This blog is his passion to learn new skills and share his knowledge to make you expertise in Data Analysis (Excel, VBA, SQL, SAS, Statistical Methods, Market Research Methodologies and Data Analysis Techniques).

2 Comments

  1. Balaji August 15, 2014 at 11:52 PM - Reply

    Hello Sir,
    I was trying to use the code provided by you, to open the outlook signature text(.txt) file from the signature folder. I am passing the arguments, path and readmode to OpenTextFile but when I try to extract the contents into string it is not taking the values in the file but is showing me some junk.
    When I copy the Msgbox output it looks like below
    —————————
    Microsoft Office Outlook
    —————————
    ÿþT
    —————————
    OK
    —————————
    I dont know where I am going wrong.

    • PNRao August 17, 2014 at 11:41 AM - Reply

      Hi Balaji,

      Please try to open the text file using ADO, it should solve your issue.

      Thanks-PNRao!

Leave A Comment


Related pages


microsoft excel template downloadsvba open hyperlinkhlookup vbahow to remove blank rows in excel 2007unhide a column in excelexcel vba with rangeformula of hlookupsql data definition commandshow to password protect excel sheetif iserror functionpower point vbavba removevba font colourdownloadable excel templatessas sql examplesunhide all sheetsexcel remove workbook protectionms excel data validation listhow do you unprotect an excel spreadsheetexcel conditional statementshow to make drop down list in excel 2007excel select worksheetvba code to open excel file from folderexcel extract duplicateshyperlink excel sheetcase vba accessexcel find duplicates in a listhow to unlock formulas in excelvba loopinputbox vbahidden rows exceldelete file vbavba array tutorialproject tracker template excel freetwo dimensional array vbaexcel countifs functionhow to make tick boxes in excelvba remaindervba excel programmingsql basic questions and answersvba userform codeexcel construction estimate templateexcel input form templatetest vba codevba questionsname manager excel 2007how to collect data from multiple sheets in excelexcel fixed column widthinsert cells in excelhow to unlock a protected excel sheet without passwordenable macros vbafinding duplicate data in excelremove duplicate cells exceltextcaseunprotect vbavba run sql queryms excel basic tutorialloop vba codeapplication.filedialog vbaminute meeting template wordsales dashboard excelexcel macro programming tutorialhow to fix columns in excelclassification of sql commandshow to find duplicates in excel using pivot tablevba excel developercreating drop down menus in excel 2007dashboard powerpoint templatemacro code excelhow to write macros in excel 2007excel countif examplevb code exampleshow to find duplicate entries in excelexcel macro select rowadvanced filter excel unique recordshow do you add developer tab to ribbonexcel cell vbacounting duplicate values in excelv lookup functionexcel shortcut keys listvba excel activesheetsql sort tablevba to create pivot tableinstr vbaexcel vba error