아 정말 닭이네..쓰는것만 하고 읽는거 포스팅 안함..(아놕)
다른애들과 동일하게 VBA 메뉴 도구-참고에서
위에 체크한거 다해야함 안하면 안뎀
Dim objStream As Object '선언
Set objStream = CreateObject("ADODB.Stream") '만들기
Dim var_String As Variant '졸라지게 큰 스트링 배정
objStream.Charset = "UTF-8" '읽어옭 캐릭터셋 지정
objStream.Open '파일열어!!
objStream.LoadFromFile ClientPath & Application.PathSeparator & "파일명"
var_String = Split(objStream.ReadText, vbCrLf) 'split entire file into array - lines delimited by CRLF '에 그러니까 CRLF 줄넘김 있으면 자르는거임
Range("i1").Resize(UBound(var_String) - LBound(var_String)).Value = Application.Transpose(var_String)'i1 부터 넣음
'요기서 부터는 셀 자르기!!
Worksheets(strSheetName).Cells(1, 8) = "=COUNTA(i:i)"
For j = 3 To Worksheets(strSheetName).Cells(1, 8) - 1
strData = Worksheets(strSheetName).Cells(j, 9)
upst = 1 '이거 맨앞에 어퍼스트로피(') 요놈이 있는경우가 있어서 체크함
For i = 1 To Len(strData)
strText = Mid(strData, i, 1)
If strText = ">" Or strText = "<" Or i = Len(strData) Or strText = """" Then
If Mid(strTemp, 1, 1) = "'" Then
rngImport.Offset(r, c) = "''" + strTemp
Else
rngImport.Offset(r, c) = strTemp
End If
c = c + 1
strTemp = ""
Else
If strText <> Chr(34) Then
strTemp = strTemp & strText
End If
End If
Next i
c = 0
r = r + 1
Next j