엑셀 vba 즉시 전체 텍스트 파일을 읽으십시오

Question

CADCAM 소프트웨어를 사용하고 매크로 코드를 작성하고 있습니다. 여기에 나의 기본적인 매크로 코드가있다.

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@ 

이 코드는 정상적으로 작동합니다. 텍스트를 읽고 한 줄씩 인쇄 할 것입니다. 전체 텍스트 파일을 한 번에 인쇄해야합니다.

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