엑셀 메모장 CSV 불러오기 :: Read_TextFile 함수

Function Read_TextFile(sPath As String, Optional Charset As String = "UTF-8") As String
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'■ Read_TextFile 함수
'■ 텍스트 또는 CSV 파일을 읽어옵니다.
'■ 인수 설명
'_____________sPath          : 텍스트 또는 CSV 파일의 파일경로입니다.
'_____________Charset        : [선택인수] 인코딩형식입니다. 기본값은 UTF-8 입니다. Unicode, ANSI 등으로 설정할 수 있습니다.
'■ 사용 예제
's = Read_TextFile("C:\Temp\Test.txt")
'##############################################################
 
On Error GoTo EH:
 
Dim objADO As Object
Set objADO = CreateObject("ADODB.Stream")
 
With objADO
    .Open
    .Charset = Charset
    .LoadFromFile sPath
    Read_TextFile = .ReadText
End With
 
Exit Function
 
EH:
Read_TextFile = CvErr(xlValue)
 
End Function