各シートをワークブックから個別のテキストファイルとして保存するにはどうすればよいですか？

ワークシートをテキストファイルとして保存する場合は、Excelの[名前を付けて保存]機能を使用して、ワークシートをテキストファイルとして保存できます。 ただし、ブックのすべてのシートを個別のテキストファイルとして保存する場合は、[名前を付けて保存]の手順にイライラする必要があります。 ここでは、Excelでこの退屈な仕事をすばやく解決するためのいくつかの興味深いトリックを紹介します。

VBAを使用してシートをテキストファイルとして保存する

Kutools for Excelを使用して、ブックの各シートを個別のテキストファイルとして保存します

Kutools for Excelを使用して、選択したシートをテキストファイルとしてエクスポートします

VBAを使用してシートをテキストファイルとして保存する

名前を付けて保存機能を使用してシートをテキストファイルとして保存したくない場合は、VBAコードを使用できます。

1.テキストファイルとして保存するシートをアクティブにします。

2。 押す Altキー+ F11 表示するキー アプリケーション向け Microsoft Visual Basic 窓。

3。 クリック インセット > モジュール ウィンドウから、VBAコードの下をモジュールに貼り付けます。

VBA：シートをテキストファイルとして保存します。

Sub SaveSheetToTxt()
'Updateby20150910
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub

4。 クリック ラン ボタンをクリックしてコードを実行し、 Kutools for Excel ダイアログで、テキストファイルを配置するフォルダを選択し、テキストファイルの名前を指定します。 スクリーンショットを参照してください：

5。 クリック Save。 これで、アクティブなシートがテキストファイルとして保存されます。

ヒント： VBAを使用すると、一度にXNUMX枚のシートのみをテキストファイルとして保存できます。

Kutools for Excelを使用して、ブックの各シートを個別のテキストファイルとして保存します

別々のテキストファイルに保存するために何百枚ものシートが必要な大きなワークブックがある場合、VBAメソッドも時間の無駄になります。 この場合、あなたは使用を試みることができます Kutools for Excelさん 分割ワークブック この仕事を処理するために、それはあなたに予想外の驚きを与えるでしょう。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.シートを独立したテキストファイルとして保存するブックを有効にして、[ クツールズプラス > ワークブック > 分割ワークブック。 スクリーンショットを参照してください：

2。 の中に 分割ワークブック ダイアログで、分割してテキストファイルとして保存するシートを選択します。デフォルトでは、すべてのシートが選択されているので、チェックします。 保存形式を指定します、および選択 Unicodeテキスト（* .txt） 下のドロップダウンリストから。 スクリーンショットを参照してください：

3。 クリック スプリット、次にテキストファイルを配置するフォルダを選択します フォルダを参照 ダイアログ。 スクリーンショットを参照してください：

4。 クリック OK。 これで、ブックの各シートが、選択したフォルダーに個別のテキストファイルとして保存されます。

連絡先 分割ワークブック of Kutools for Excel、ワークブックを分割して、個別のxlsファイル、xlsxファイル、PDFファイル、またはCSVファイルとして保存できます。 このユーティリティの詳細については、ここをクリックしてください。

ここをクリックして、Kutools forExcelを無料でダウンロードしてください

Kutools for Excelを使用して、選択したシートをテキストファイルとしてエクスポートします

連絡先 Kutools for Excel、を使用して、選択したシートをテキストファイルとしてエクスポートすることもできます。 範囲をファイルにエクスポート.

後 無料インストール Kutools for Excel、以下のようにしてください：

1.テキストファイルとして保存するXNUMXつまたは複数の範囲を選択し、[ クツールズプラス > 輸出入 > 範囲をファイルにエクスポート。 スクリーンショットを参照してください：

2.次に、ポップダイアログでチェックします Unicodeテキスト 下のオプション ファイル形式 セクションに移動し、 言語オプション セクションで必要に応じてオプションを確認し、保存場所を選択します。

3。 クリック Ok。 次に、エクスポートしたテキストファイルにポップで名前を付けます 範囲をファイルにエクスポート ダイアログボックスをクリックし、 OK

これまでのところ、選択範囲は別のテキストファイルとしてエクスポートされています。

以上あります 120 ツールでの Kutools for Excel、それをインストールして60日間の試用期間を設けると、夢にも思わなかった便利な機能がたくさん見つかるかもしれません。