複数のテキストファイルをエクセルの同一シートで

質問

皆様御質問させてください

現在複数取得したデータ処理を行っています。
取得したデータはテキストファイルになっています。（添付画像）
このようなテキストファイルが２００位あるのですが、このテキストファイルをエクセルの一つのシートで開くにはどうすれば宜しいでしょうか。
ネットで検索するとマクロを使うしかないみたいですが、まったく理解できません。

大変厚かましい御願なのですが、コピペできるようなプログラム？を作って頂けないでしょうか。
何卒宜しくお願い致します。

回答No.1

K Kazz（@JazzCorp） · ベストアンサー

動機があるの何故やらぬ？
インセンティブがないから？？
VBA以外だと、初めの一歩、txtファイルの合体はこんな感じ？
それはEXCELで読めるので、関数でヨイショヨイショ、と列にオッ拡げる、、、
http://soudan1.biglobe.ne.jp/qa1742202.html
～～～
以下のようなバッチファイルを作り、
combine outfile.txt *.txt
と入力すれば、outfile.txt にお望みのものが出力されます。

お礼

早速の御回答ありがとうございます。

大変お恥ずかしいのですが、私はＰＣ音痴で上記バッチファイルの使い方が全く分かりません。
これまたネットで調べて、上記関数をワードパットに張り付けて、拡張子を.batに返還したのですが、開く事が出来ません。

----- combine.bat
@echo off
setlocal
set outfile=%~1
shift
type nul > "%outfile%"

for %%A in (%*) do (
if not "%%~A" == "%outfile%" (
echo %%A
type "%%~A%
)
) >> "%outfile%"
endlocal
-----

↑をワードパットに張り付けました。

またフォルダ内の拡張子 .txt のファイルすべてをまとめるのなら、

combine outfile.txt *.txt

と記載されておりましたが、「combine outfile.txt *.txt」これは何処に入力するのですか？
また、米の所にフォルダ名を入れればいいのですか？

何も分からず大変お恥ずかしいのですが、何卒御教授御願致します。

回答No.2

tsubuyuki

> 大変厚かましい御願なのですが、コピペできるようなプログラム？を作って頂けないでしょうか。

そういう事を生業にしている会社・個人は山ほどあります。
「vba 開発会社」で検索すると、結構な数がヒットしますので探してみましょう。
ここで無料で「作って差し上げる」のはそういった方々に失礼に当たりますので。

ご希望の処理に関するヒントも、先の回答者さんも含め、ゴロゴロ転がっていますが、
私からも憚りながら手がかりを少々。

手作業でやることを、マクロに落としていくだけなのです。
流れとして
・転記先のブックを開いておく（ここにマクロを記述）
・転記元のテキストファイルを開く※１
　「VBA ファイルを開く」で検索
・転記元の内容をコピーする
　「VBA コピー」で検索
・転記先の最終列（一番右の列）を探す
　「VBA 最終列」で検索
・転記先の最終列の一つ右の列にコピーしたものを貼り付ける
　「VBA 貼り付け」で検索
・転記元のファイルを閉じる※２
　「VBA 閉じる」で検索
・必要分、※１から※２を繰り返す
　「VBA 繰り返し」で検索
・転記先を名前をつけて保存する
　「VBA 保存」で検索
このような感じでしょう。
おそらく、そんなに難しくは無いはずです。

大変失礼とは思いますが、
「ＰＣ音痴だから理解できない」が仕事に通用するのでしょうか？
口下手だから営業活動が出来ない、とか、数字が苦手だから経理が出来ない、とか
そう言っているようなものですよね。
ＰＣ音痴だからこそ、勉強する動機が出来た今だからこそ、
音痴を克服できるように勉強するべき時なのではないでしょうか？

お礼

失礼しました。
勉強してみます。