티스토리 뷰

반응형

엑셀 매크로 VBA 나의 함수 파일에 저장


Function tr_File_WriteAll(filename As String, Text As String) As String

    

    Dim FSO, FileToSize

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

   

    Set FileToSize = FSO.OpenTextFile(filename, 2, 2)

    FileToSize.writeline (Text)

    FileToSize.Close

    Set FileToSize = Nothing

    

    Set FSO = Nothing

    

End Function















.




반응형
댓글