Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub BringText()
Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim strIn As String
Set fso = New Scripting.FileSystemObject
Set ts = fso.OpenTextFile("c:\gerry\test2.txt")
strIn = ts.ReadAll
Worksheets("Sheet1").Range("A1").Value = strIn
Set ts = Nothing
Set fso = Nothing
End Sub