Excel Macros VBA to read data from a file and store into a string Variable

VBA to read data from a file

---

In this vba script you can read text from Text, HTML, JS and any other file and store into a string variable.

1. Dim oFSO As Object
2.     Dim oFS As Object, sText As String
3. 
   
4.     Set oFSO = CreateObject("Scripting.FileSystemObject")
5.     Set oFS = oFSO.OpenTextFile(sFile)
6. 
   
7.     Do Until oFS.AtEndOfStream
8.         sText = oFS.ReadAll()
9.     Loop
10.     FileToString = sText
11.     
12.     Set oFSO = Nothing
13.     Set oFS = Nothing