안녕하세요어찌어찌 하다가 완성은 했는데 문자열이 깨져서 나와서요 Sub test() Dim FilePath As String Dim LineFromFile As String Dim LineItems() As String Dim row_number As Integer 'FilePath = Application.DefaultFilePath & "\authors.csv" FilePath = "C:\jhj\ze.csv" Open FilePath For Input As #1 row_number = 0 Do Until EOF(1) Line Input #1, LineFromFile LineItems = Split(LineFromFile, ",") ActiveCell.Offset(row_number, 0).Value = LineItems(0) ActiveCell.Offset(row_number, 1).Value = LineItems(1) ActiveCell.Offset(row_number, 2).Value = LineItems(2) row_number = row_number + 1 Loop Close #1 End Sub 혹시 위 에서 문자열 한글 문자열을 utf8 euc-kr 등을 바꾸려면 어떻게 해야 하는지 문의 드립니다.
Sub test() Dim FilePath As String Dim LineFromFile As String Dim LineItems() As String Dim row_number As Integer 'FilePath = Application.DefaultFilePath & "\authors.csv" FilePath = "C:\jhj\ze.csv" Open FilePath For Input As #1
row_number = 0 Do Until EOF(1) Line Input #1, LineFromFile LineItems = Split(LineFromFile, ",") ActiveCell.Offset(row_number, 0).Value = LineItems(0) ActiveCell.Offset(row_number, 1).Value = LineItems(1) ActiveCell.Offset(row_number, 2).Value = LineItems(2) row_number = row_number + 1 Loop Close #1
End Sub
혹시 위 에서 문자열 한글 문자열을 utf8 euc-kr 등을 바꾸려면 어떻게 해야 하는지 문의 드립니다.