複数のテキストファイルを複数のシートにインポートするにはどうすればよいですか?
コンピューターのフォルダーに複数のテキストファイルがあるとします。次に、これらのテキストファイルをExcelブックにインポートし、各テキストファイルを別々のワークシートに配置します。 各テキストファイルをXNUMXつずつコピーしてワークシートに貼り付けると、多くの時間が無駄になります。ここでは、この問題を解決するためのいくつかの秘訣について説明します。
複数のテキストファイルをインポートして、VBAコードを使用してワークシートを分離します
Kutools for Excelを使用して、ワークブックを複数の個別のテキスト/ pdf / csv / xlsxファイルに分割します
複数のテキストファイルをインポートして、VBAコードを使用してワークシートを分離します
次のVBAコードは、各テキストファイルを新しいブック内の個別のシートに一度にインポートするのに役立つ場合があります。次のようにしてください。
1。 を押し続けます Alt + F11 Excelでキーを開いて アプリケーション向け Microsoft Visual Basic 窓。
2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。
VBAコード:複数のテキストファイルを別々のワークシートにインポートします。
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3。 上記のコードを貼り付けた後、を押します F5 このコードを実行するためのキーを押し、ポップアウトされたウィンドウで、テキストファイルを含むフォルダーを指定し、フォルダーに移動して、ワークシートにインポートするテキストファイルを選択します。スクリーンショットを参照してください。
4。 次に、をクリックします Open ボタンをクリックすると、選択したすべてのテキストファイルが新しいワークブックにインポートされ、各ファイルがXNUMXつのワークシートに個別に配置されます。
5。 最後に、必要に応じて新しいブックを保存できます。
Kutools for Excelを使用して、ワークブックを複数の個別のテキスト/ pdf / csv / xlsxファイルに分割します
場合によっては、上記のタスクとは逆の操作を行う必要があります。つまり、ワークブックを分割してテキストファイルを分割する必要があります。 Kutools for Excelさん 分割ワークブック ユーティリティは、この仕事をすばやく簡単に解決するのに役立ちます。
Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. |
インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用のKutoolsを無料でダウンロードしてください! )
1。 複数のテキストファイルに分割するワークブックをアクティブ化します。
2に設定します。 OK をクリックします。 Enterprise > ワークブック > 分割ワークブック、スクリーンショットを参照してください:
3。 の中に 分割ワークブック ダイアログボックス:
(1.)分割したいワークシートをチェックします。
(2.)チェック 保存形式を指定します、次に保存するファイル形式を選択します。たとえば、次のように選択できます。 TXT, csvファイル, PDFファイル, XLSX or XLS 必要に応じてファイル形式。
(3.)次にクリックします スプリット ボタンをクリックし、次のプロンプトボックスで、個別のファイルを出力するフォルダを指定します。
4。 次に、をクリックします OK ボタンをクリックすると、選択したワークシートが分割され、必要な形式で目的のフォルダに保存されます。
今すぐExcel用のKutoolsを無料でダウンロードしてください!
最高のオフィス生産性向上ツール
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...) | 12 変換 ツール (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット ツール (高度な結合行, 分割セル、...) | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!