Excel でコンマ区切り記号と引用符区切り記号の両方を含むテキスト ファイルをエクスポートする手順

概要

Microsoft Excel には、テキスト ファイルにデータを自動的にエクスポートするメニュー コマンドがないため、テキスト ファイルは区切り記号として引用符とコンマの両方でエクスポートされます。 たとえば、次のデータを含むテキスト ファイルを自動的に作成するコマンドはありません。

"Text1","Text2","Text3"

ただし、この機能は、Microsoft Visual Basic for Applications プロシージャを使用して Excel で作成できます。

詳細

Microsoft は、例示のみを目的としてプログラミング例を提供しており、明示または黙示にかかわらず、いかなる責任も負わないものとします。 これには、市販性または特定目的との適合性についての黙示の保証も含まれますが、これに限定はされません。 この記事は、説明されているプログラミング言語、手順を作成およびデバッグするために使用されているツールに読者が精通していることを前提にしています。 Microsoft サポート エンジニアは、特定のプロシージャの機能を説明するのに役立ちますが、これらの例を変更して、特定の要件を満たすために追加の機能を提供したり、プロシージャを構築したりすることはありません。

次のような Visual Basic プロシージャで Print # ステートメントを使用して、区切り記号として引用符とコンマの両方を含むテキスト ファイルをエクスポートできます。 プロシージャが正しく機能するには、データを実行する前に、データを含むセルを選択します。

次のサンプル コードを使用する前に、次の手順に従います。

1. 新しいブックを開きます。

2. Microsoft Office Excel 2003 または Microsoft Excel 2002 で、[ツール] メニューの [マクロ] をポイントし、[Visual Basic エディター] をクリックします。 または、Alt キーを押しながら F11 キーを押します。

   Microsoft Office Excel 2007 で、[開発者] タブをクリックし、[コード] グループの [Visual Basic] をクリックします。 または、Alt キーを押しながら F11 キーを押します。

   注:

   リボンの [ 開発者 ] タブを表示するには、[ Microsoft Office] ボタンをクリックし 、[Excel のオプション] をクリックし、[一般的な カテゴリ] をクリックし、[リボン] チェック ボックス の [開発者の表示] タブを クリックして、[OK] をクリック します。

3. Visual Basic エディターで、[挿入] メニューの [モジュール] をクリックします。

4. 次のサンプル コードを入力するか、モジュール シートに貼り付けます。

   Sub QuoteCommaExport()
      ' Dimension all variables.
      Dim DestFile As String
      Dim FileNum As Integer
      Dim ColumnCount As Long
      Dim RowCount As Long
   
      ' Prompt user for destination file name.
      DestFile = InputBox("Enter the destination filename" _
         & Chr(10) & "(with complete path):", "Quote-Comma Exporter")
   
      ' Obtain next free file handle number.
      FileNum = FreeFile()
   
     ' Turn error checking off.
      On Error Resume Next
   
      ' Attempt to open destination file for output.
      Open DestFile For Output As #FileNum
   
      ' If an error occurs report it and end.
      If Err <> 0 Then
         MsgBox "Cannot open filename " & DestFile
         End
      End If
   
      ' Turn error checking on.
      On Error GoTo 0
   
      ' Loop for each row in selection.
      For RowCount = 1 To Selection.Rows.Count
   
      ' Loop for each column in selection.
         For ColumnCount = 1 To Selection.Columns.Count
   
           ' Write current cell's text to file with quotation marks.
            Print #FileNum, """" & Selection.Cells(RowCount, _
               ColumnCount).Text & """";
   
            ' Check if cell is in last column.
            If ColumnCount = Selection.Columns.Count Then
               ' If so, then write a blank line.
               Print #FileNum,
            Else
               ' Otherwise, write a comma.
               Print #FileNum, ",";
            End If
         ' Start next iteration of ColumnCount loop.
         Next ColumnCount
      ' Start next iteration of RowCount loop.
      Next RowCount
   
      ' Close destination file.
      Close #FileNum
   End Sub
   

5. マクロを実行する前に、エクスポートするデータを選択し、QuoteCommaExport サブルーチンを実行します。