Excel VBA ganze Textdatei auf einmal lesen

Question

Ich benutze CADCAM Software und schreiben Makro-Code. Hier ist mein grundlegender Makrocode.

OPEN "C:\Area ratio\etch.txt" FOR INPUT as #1 

DO WHILE NOT EOF (1) =1 

LINE INPUT #1, REC$ 
if REC$="" then goto jump2 

'PRINT REC$ 

y2#=Y2#-200 

Addtext@ x2#,y2#,0,0,REC$ 
jump2: 
LOOP 

CLOSE #1 

Clearmarkers@ 
end@ 

Dieser Code funktioniert einwandfrei. aber es liest den Text und druckt Zeile für Zeile. Ich muss lesen ganze Textdatei auf einmal.

Answer 1

Sub Test() 

    'Tools -> References -> Microsoft Scripting Runtime 
    Dim fso As New FileSystemObject 
    Dim txt As TextStream 
    Dim all_text As String 

    Set txt = fso.OpenTextFile("c:\Temp\textfile.txt") 
    all_text = txt.ReadAll 
    txt.Close 

End Sub