Excel에서 CSV를 여는 방법

좋은 방법

• Excel → 데이터 → 외부 데이터 가져 오기 →로 모든 열을 Shift선택하고 텍스트를 선택하십시오.

  거꾸로 : 예외없이 모든 값을 텍스트로 올바르게 처리

  단점 : 단순한 더블 클릭 보다 더 많은 단계

나쁜 방법

• 더블 클릭 또는 Excel의 대화 상자로 열기로 CSV 열기

  단점 : Excel의 내부 CSV 처리기 는 텍스트가 아닌 수식으로 선행 -또는 =부호 가있는 값을 잘못 해석합니다.

  단점 : 0001Excel의 자동 감지 열 형식으로 인해 이진 값에서 선행 0이 손실 됩니다.

좋은 방법 (VBA의 경우)

• QueryTables 사용 (VBA 대응 Get external data) → 예제 코드

  거꾸로 : 예외없이 모든 값을 텍스트로 올바르게 처리

  단점 : OpenText방법 보다 약간 더 많은 코드

나쁜 길 (VBA의 경우)

• 사용 Workbooks.OpenText방법 → 예제 코드

  단점 :이 방법은 여전히 ​​모든 결함과 함께 Excel의 내부 CSV 가져 오기 핸들러를 사용하고 있습니다.

  단점 : 또한 확장명이 CSV 인 경우 fieldinfo매개 변수 OpenText는 무시됩니다. 일반적으로이 매개 변수를 사용하면 모든 열 형식을 선택할 수 있지만 확장자가 CSV 인 경우는 아닙니다. 스택 오버플로 에서이 동작에 대해 자세히 읽을 수 있습니다.

  ^{소스 파일을 완전히 제어 할 수있는 경우 소스 확장명을 CSV에서 TXT로 변경 한 다음 CSV로 다시 변경하는 것이 유효한 해결 방법입니다.}

추가 방법

• CSV를 생성하는 소스에 액세스 할 수 있으면 CSV 구문을 변경할 수 있습니다.
  모든 값을 큰 따옴표로 묶고 ="00001"모든 값 앞에 탭을 추가하거나 앞에 붙는 등호를 붙 입니다. 두 가지 방법 모두 Excel에서 값을 텍스트로 처리하도록합니다.

  _{원본 CSV 컨텐츠}
  

  _{더블 클릭을 통해 열면 Excel의 CSV}
  

  Excel에서 줄 2 (큰 따옴표 방법)와 줄 3 (탭 방법)이 변경되지 않는 방법에 유의하십시오.

• 메모장 에서 CSV를 열고 모든 값을 Excel에 복사하여 붙여 넣습니다. 그런 다음 사용하는 텍스트 나누기 – 데이터
  : 단점 텍스트 열에서 다시 텍스트가 일치하지 않는 결과를 얻을 수에 일반에서 열 형식을 변경. 값 -에 문자 로 둘러싸인 문자 (예 : “= E1-S1”)가 있으면 Excel은 해당 값을 둘 이상의 열로 분할하려고합니다. 해당 셀에있는 값을 덮어 쓸 수 있습니다
  ^{( 텍스트의 열 동작은 Excel 2007과 2013 사이에서 변경되어 더 이상 작동하지 않음)}

CSV를 열고 모든 값을 텍스트로 가져 오는 Excel 추가 기능

CSV 가져 오기 작업을 단순화하기위한 Excel 플러그인입니다.
주요 장점 : 원 클릭 솔루션이며 외부 데이터 가져QueryTables 오기와 동일한 방탄 방법을 사용 합니다.

• Excel에 새로운 메뉴 명령을 추가하여 CSV 및 TXT 파일을 가져올 수 있습니다. 현재 선택된 셀부터 모든 값을 활성 시트로 가져옵니다.
• Excel 추가 기능은 Windows 및 Mac의 모든 Office 버전에서 사용할 수 있습니다
• 전체 애드 인에는 35 줄의 코드 만 있습니다. 궁금한 점이 있으면 주석이 달린 소스 코드를 확인하십시오.
• 사용 된 CSV 목록 구분 기호 (쉼표 또는 세미콜론)는 로컬 Excel 설정에서 가져옵니다.
• 인코딩이 UTF-8로 설정되었습니다

설치

1. 추가 기능을 다운로드하여 추가 기능 폴더에 저장하십시오.%appdata%\Microsoft\AddIns
2. 열기 Excel 및 추가 기능을 활성화 : File tab → Options → Add-Ins → Go To선택ImportCSV.xla
3. VBA 매크로 활성화 : File tab → Options → Trust Center → Trust Center Settings → Macro Settings → Enable all macros
4. Excel을 다시 시작하십시오.

추가 기능이라는 새로운 메뉴 표시 줄 항목이 표시되며이 버튼을 사용하여 번거롭지 않은 가져 오기 대화 상자를 거치지 않고 CSV 파일을 빠르게 열 수 있습니다.

Windows 탐색기에서 직접 CSV를 여는 PowerShell 스크립트

PowerShell 스크립트를 사용하여 CSV 파일을 열고 자동으로 Excel로 전달할 수 있습니다. 이 스크립트는 Excel의 텍스트 가져 오기 방법을 자동으로 사용하여 항상 값을 텍스트로 처리하고 보너스로 UTF-8 인코딩을 처리합니다.

1. 새 텍스트 파일을 만들고 아래 스크립트를 붙여 넣습니다. 주석이 달린 버전은 여기 에서 찾을 수 있습니다

$CSVs = @()
$args.ForEach({
    If ((Test-Path $_) -and ($_ -Match "\.csv$|\.txt$")) {
        $CSVs += ,$_
    } 
})

if (-Not $null -eq $CSVs) {

    $excel = New-Object -ComObject excel.application 
    $excel.visible = $true
    $excel.SheetsInNewWorkbook = $CSVs.Count    
    $workbook = $excel.Workbooks.Add()

    for ($i=0; $i -lt $CSVs.Count; $i++){

        $csv = Get-Item $CSVs[$i]
        $worksheet = $workbook.worksheets.Item($i + 1)
        $worksheet.Name = $csv.basename

        $TxtConnector = ("TEXT;" + $csv.fullname)
        $Connector = $worksheet.QueryTables.add($TxtConnector,$worksheet.Range("A1"))
        $query = $worksheet.QueryTables.item($Connector.name)
        $query.TextFilePlatform = 65001
        $query.TextFileTextQualifier = 1
        $query.TextFileOtherDelimiter = $Excel.Application.International(5) 
        $query.TextFileParseType  = 1
        $arrFormats = ,2 * $worksheet.Cells.Columns.Count
        $query.TextFileColumnDataTypes = $arrFormats
        $query.AdjustColumnWidth = 1
        $query.Refresh()
        $query.Delete()
    }
}

2. 같은 곳에 저장하십시오 C:\my\folder\myScript.ps1. (확장 참고 .ps1)
   • WinR» shell:sendto» 를 통해 sendto 폴더를여십시오Enter
3. 마우스 오른쪽 버튼으로 클릭»새로 만들기»바로 가기를 통해 새 바로 가기를 생성 한 후이 줄을 붙여 넣습니다. 스크립트를 넣은 경로를 자신 만의 경로로 변경하는 것을 잊지 마십시오. 바로 가기 이름을 지정하십시오 (예 : Excel).

“% SystemRoot % \ system32 \ WindowsPowerShell \ v1.0 \ powershell.exe”-NoProfile -NonInteractive -WindowStyle Hidden-파일 “C : \ my \ folder \ myScript.ps1”

이제 여러 개의 CSV를 선택하고 다음을 통해 Excel에서 열 수 있습니다. Right-click » SendTo » Excel

답변

Public Sub ImportCSVAsText()
    Dim TempWorkbook As Workbook
    Dim TempWorksheet As Worksheet
    Dim ColumnCount As Integer
    Dim FileName As Variant
    Dim ColumnArray() As Integer

    'Get the file name
    FileName = Application.GetOpenFilename(FileFilter:="All Files (*.*),*.*", FilterIndex:=1, Title:="Select the CSV file", MultiSelect:=False)

    If FileName = False Then Exit Sub

    Application.ScreenUpdating = False

    'Open the file temporarily to get the count of columns
    Set TempWorkbook = Workbooks.Open(FileName)
    ColumnCount = TempWorkbook.Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Column
    TempWorkbook.Close SaveChanges:=False

    'Resize the array to number of columns
    ReDim ColumnArray(1 To ColumnCount)

    For i = 1 To ColumnCount
        ColumnArray(i) = xlTextFormat
    Next i

    Set TempWorkbook = Workbooks.Add
    Set TempWorksheet = TempWorkbook.Sheets(1)

    Application.DisplayAlerts = False
    TempWorkbook.Sheets(2).Delete
    TempWorkbook.Sheets(2).Delete
    Application.DisplayAlerts = True

    With TempWorksheet.QueryTables.Add("TEXT;" & FileName, TempWorksheet.Cells(1, 1))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = ColumnArray
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

End Sub