アフィリエイト

複数のテキストファイル文書データをエクセル1シート列に取り込む方法

早期タイ職マスター(自称)の加藤光騎です。

ここではツールを使って作成した.txtの文書データ、これをEXCEL2013の1シート内に取り込む方法を色々調べてみたことを備忘録として書きます。

Googleでググっても手順が全然理解できない…

私が行いたかった作業内容は

[normal_box2 color=”blue” border=”b1″]

    [point_m color=”pink” no=”1″].txtファイル名をExcel2013のbook1のA列に入れる
    (A.txtファイル名⇒sheet1のA1へ、B.txtファイル名⇒sheet1のA2へ…)
    [/point_m]
    [point_m color=”pink” no=”2″].txtファイル内容(文章)を上記と同じExcel2013のB列に入れる
    (A.txtファイル文⇒sheet1のB1へ、B.txtファイル名⇒sheet1のB2へ…)[/point_m]

[/normal_box2]
 
という内容だったのです。

ですが頑張ってググってみても、どれも部分的な説明になっていて、私のようなエクセル初心者には難解なモノばかりだったんです。

なので「教えてGoo」にどなたか親切な方がいてくれますように…

とお祈りしつつ質問したみたところ、とても丁寧にご教授いただいたので、備忘録としてココに書き留めて置きたいと思います。

 

【手順その1】.txtが入った任意のフォルダにすること

1..txtが入ったフォルダ内に新たな.txt(例:pass.txt)を作成する。

 
2.作成した.txtに次のコードをコピペする。

<↓コードはこちら>
————————————————————————–
Sub ファイル読込み()
Dim ファイル名 As String
Dim 行 As Long
Dim ファイル番号 As Integer
Sheets(“結果データ”).Select
Cells.ClearContents
ファイル名 = Dir(ThisWorkbook.Path & “\” & “*.txt”)
Do While ファイル名 <> “”
行 = 行 + 1
Cells(行, 1).Value = ファイル名
ファイル名 = Dir()
Loop
For 行 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ファイル番号 = FreeFile
Open ThisWorkbook.Path & “\” & Cells(行, 1).Value For Input As #ファイル番号
Cells(行, 2).Value = StrConv(InputB(LOF(1), #ファイル番号), vbUnicode)
Close #ファイル番号
Next
End Sub
————————————————————————–
 

【手順その2】データを移したいエクセルシートを作成する

1..txtが入ったフォルダ内に新たなエクセルシート(例:book1.xlsx)を作成・保存する

 
2.エクセルシートを開き、sheet1とは別にシートを作成し、シート名を[結果データ]として保存する

 
3.エクセルシートを開いたままAltキーを押しながら[F11]を押す
 
4.VBEが起動するので、画面の[挿入]メニューの[標準モジュール]をクリック
 
5..txtにコピペしたデータをココにも貼付けし上書き保存

 
6.メッセージが表示されるので「いいえ」を選択

 
7.[ファイルの種類(T)]で[Excelマクロ有効ブック(*.xlsm)]を選択し[保存(S)]する

8.拡張子.xlsmを選択して.txtのあるフォルダに保存(例:book1.xlsm)

[標準モジュール]画面は保存したら閉じてOK

 

【手順その3】作成したbook1.xlsmでの操作

1..txtフォルダ内のbook1.xlsmを開く

 
2.メニューバーの[表示]>[マクロ]>[マクロの表示]を選択

 
そうするとエクセルシートの[結果データ]に.txtのファイルデータが貼付けされます。

ただし.txtの量が多いとメッチャ重たくなりますので、終了サインが出るまではエクセルをイジらないほうが良いです。

途中でイジるとエクセルが固まってしまって、もう一度最初からやり直しになってしまうので、注意してください。

 

エクセルのセル内文章の改行を削除する方法

これは意外と簡単でして

1.改行削除したいセルを選択

2.[ホーム]>[検索と選択]をクリックし、[置換(R)]

3.[検索と置換]が表示されるので、[検索する文字列(N)]に【Ctrlキー + Jキー】を入れる ※ただし【Ctrlキー + Jキー】を入れても文字は何も表示されません。

4.[置換後の文字列(E)]は空欄にし、[すべて置換]を選択

 

てセル内の文章の改行がすべて削除され、つながった文章になります。

ふぅぅー、大変でした。。。

 

=========================================

光騎写真

光騎です。
記事を最後まで読んで頂きありがとうございました。
今後も価値のある情報を
どんどん提供していきますので、
ご愛読のほどどうぞよろしくお願いします。

【お知らせ】
ワタクシ光騎は当ブログ限定で無料メルマガを発行しています。
普通のサラリーマンだった私が47歳で早期退職し、
紆余曲折を経て50歳で月収150万円を達成した
具体的なノウハウ、知識などをメルマガ限定でお伝えしています。

またブログではお伝えできないヤバイ裏情報も
完全暴露しちゃってたりします。

なおメルマガに登録していただいた方には
2つのオリジナル特典をプレゼントしています。

他にも有料級の内容は
メルマガ限定で配信していますので
ぜひ登録をしてお読みください。

メルマガ登録はこちらから

光騎メルマガ登録ページへ

50歳で月収150万以上を稼ぎ出し『ひっそりユルユルと毎日』を過ごす方法
★期間限定で公開中★