CSVファイルをワークシートにインポートするにはどうすればよいですか？

CSVファイルとしてワークシートをインポートしたり保存したりするのは簡単かもしれませんが、CSVファイルをワークシートにインポートしたことはありますか？この記事では、そのタスクに対処するためのいくつかの興味深い方法について説明します。

テキストインポートウィザードを使用してCSVファイルをワークシートにインポート

Kutools for Excelを使用してCSVファイルをワークシートにインポート

VBAコードを使用してCSVファイルをワークシートにインポート

テキストインポートウィザードを使用してCSVファイルをワークシートにインポート

通常、Excelでは、テキストインポートウィザード機能を使用してCSVファイルをワークシートにインポートできます。以下の手順に従ってください：

1. CSVファイルをインポートしたいワークシートをアクティブにし、次に「データ」＞「テキストから」をクリックしてください。スクリーンショットをご覧ください：

2. 「テキストファイルのインポート」ウィンドウで、インポートしたいCSVファイルを指定してください。スクリーンショットをご覧ください：

3. 次に「インポート」ボタンをクリックすると、テキストインポートウィザードのステップ1で「区切り文字」オプションを選択します。スクリーンショットをご覧ください：

4. 次に「次へ>」ボタンをクリックすると、ウィザードのステップ2で「区切り文字」オプションの下にある「 カンマ」をチェックします。スクリーンショットをご覧ください：

5. 次に「次へ>」ボタンをクリックすると、ウィザードのステップ3で「列のデータ形式」セクションの「テキスト」オプションを選択し、最初の列がハイライトされているのが確認できます。Shiftキーを押しながらすべての列をハイライトします。スクリーンショットをご覧ください：

6. 次に「完了」ボタンをクリックすると、「データのインポート」ダイアログボックスが表示されるので、データを配置したい場所を選択してください。スクリーンショットをご覧ください：

7. 「OK」ボタンをクリックすると、CSVファイルがすぐにワークシートにインポートされます。

Kutools for Excelを使用してCSVファイルをワークシートにインポート

Kutools for Excelを持っている場合、カーソル位置にファイルを挿入するユーティリティを使用して、CSVファイル、テキストファイル、Excelファイル、またはPRNファイルを現在のワークシートに迅速にインポートできます。

Kutools for Excelをインストール後、次の手順に従ってください：

1. CSVファイルのデータをインポートしたいワークシートをアクティブにします。

2. 次に「Kutools Plus」＞「インポートとエクスポート」＞「 カーソル位置にファイルを挿入」をクリックします。スクリーンショットをご覧ください：

3. 「カーソル位置にファイルを挿入」ダイアログボックスで、次のオプションを行ってください：

(1.) クリック データを出力したいセルを選択するボタン；

(2.) 次に「参照」ボタンをクリックして、「セルカーソル位置に挿入するファイルを選択」ウィンドウを開きます；

(3.) 表示されたウィンドウで、右下のドロップダウンリストから「CSVファイル」を選択し、インポートしたいCSVファイルを選択します。

4. CSVファイルを指定後、「 開く」ボタンをクリックして前のダイアログボックスに戻り、「OK」をクリックしてCSVファイルをインポートします。そして、CSVファイルは必要な特定の場所に挿入されます。

今すぐKutools for Excelをダウンロードして無料でお試しください！

VBAコードを使用してCSVファイルをワークシートにインポート

上記の方法をステップバイステップで行うのが面倒な場合は、次のVBAコードでもこの問題を解決できます。

1. ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：CSVファイルをワークシートにインポート：

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. 次にF5キーを押してこのコードを実行し、表示されたKutools for ExcelダイアログでインポートしたいCSVファイルを選択します。スクリーンショットをご覧ください：

4. 次に「開く」ボタンをクリックし、インポートしたデータを配置したいセルをクリックします。スクリーンショットをご覧ください：

5. そして「OK」をクリックすると、指定したCSVファイルがワークシートにインポートされます。