Read a text file into Excel using VBA.  Bring the text from the textfile into excel.  Update file path with your textfiles path.


Dim FileNum As Integer
Dim DataLine, DataString As String
FileNum = FreeFile()
Open "Z:\home\Downloads\JSON\JSON.json" For Input As #FileNum
While Not EOF(FileNum)
Line Input #FileNum, DataLine
DataString = DataString & DataLine
Close #FileNum
Cells(1, 1).Value = DataString