Excelへシート別の書き込み

質問

現在、Excelへの書き込みはフォルダ内の全てのファイルをシート1へ書き出す
ことができています。

TEST┰001.txt　→　シート1へ
　　├002.txt　→　シート1へ
　　├003.txt　→　シート1へ
　　├004.txt　→　シート1へ
　　└005.txt　→　シート1へ

次は、テキストファイルの内容で判断し、シート1へ書き込みするか、シート2へ書き込みするか判断したいのですが・・・。

TEST┰001.txt　→　シート1へ
　　├002.txt　→　シート1へ
　　├003.txt　→　シート2へ
　　├004.txt　→　シート1へ
　　└005.txt　→　シート2へ

この方法をずっと考えているのですが、なかなかよい方法が思いつきません。
どなたか、よい方法がわかられる方、教えてくださいm(__)m

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

テキストファイルを読み込んで、その内容に従って、シート1へ書き込むか、シート2へ書き込むかをIf文などで条件分岐してやればいいだけだと思いますが。
テキストファイルを読み込む方法がわからないということでしょうか。

お礼

すいません。お礼が遅くなりましたm(__)m
単純な問題でした。If文でシート名が存在するかで条件分岐し、
なかった場合にはシートを追加するとすればよかったんですね。
早合点し、もうちょっと考えてから質問すればよかったです。
ありがとうございました。

回答No.3

nishi6

TEST┰001.txt　→　テキストファイルＡに書き込む
　　├002.txt　→　テキストファイルＡに書き込む
　　├003.txt　→　テキストファイルＡに書き込む
　　├004.txt　→　テキストファイルＡに書き込む
　　└005.txt　→　テキストファイルＡに書き込む

　　　　　　　　　　　→　テキストファイルＡを読み込む。必要ならシートをコピーする。

TEST┰001.txt　→　判断してテキストファイルＡに書き込む
　　├002.txt　→　判断してテキストファイルＡに書き込む
　　├003.txt　→　判断してテキストファイルＢに書き込む
　　├004.txt　→　判断してテキストファイルＡに書き込む
　　└005.txt　→　判断してテキストファイルＢに書き込む

　　　　　　　　　　　→　テキストファイルＡを読み込む・・・BookＸ
　　　　　　　　　　　→　テキストファイルＢを読み込む・・・BookＹ
　　　　　　　　　　　→　BookＹのシートをBookＸにコピーする。

事前に数多いテキストファイルを１つにしたり、まとめてしまう方法です。

エクセルへの読み込み方法は、
　OpenTextメソッドを使って読み込んだ後、シートをコピーしたり、
　テキストファイルを直接読み込んだりと色々あるでしょう。

お礼

お礼が遅くなってすいません。
無事問題解決しました。
ありがとうございましたm(__)m

回答No.2

imogasi

以下Ｂｏｏｋ１のシートへまとめるものとする。
（１）テキストファイルaaa.txtをワークブックに読みこむ。
Workbooks.OpenText "c:\My Documents\aaa.txt", , 1, xlDelimited
ブック名aaa.txtのシート名aaaの１シートが出来る。
既存のブックへ（ブック名を指定して）シート名を指定して
OpenTextで読みこむことは出来ない。
ＤＯＳ－Ｂａｓｉｃ式のＯｐｅｎ，ＩＮＰＵＴ＃の方法も
あるがOpenTextを使ってみた。
（２）a = Workbooks("aaa.txt").Worksheets("aaa").Range("b1")とか
で値を参照できるから、その値でＢｏｏｋ１のどのシートに
コピーするか判別し決める。－－－(a)
どの諸セルの内容で、シートを振り分けるかは、質問に書いてなくて、省略する。
（３）Rangeのコピーをするため、
　読みこんで出来たシートのデータの最下行を知る。
l = Workbooks("bbb.txt").Worksheets("bbb").Range("a1").CurrentRegion.Rows.Count等で知る。
（３）Ｂｏｏｋ１のシート(a)へコピーする。
ＢＯＯＫ１のシート（上記（a）のシート）の最下行を知り、その次行にActiveにしておく。
s = "a1:j" & l1　（jは最右列を見積もった列の例え）
Workbooks("bbb.txt").Worksheets("bbb").Range(s).Copy
l = Workbooks("book1").Worksheets("sheet1").Cells(1, 1).CurrentRegion.Rows.Count
Workbooks("book1").Worksheets("sheet1").Cells(l + 1, 1).Activate
ActiveSheet.Paste
s = "a1:j" & l2
Workbooks("aaa2.txt").Worksheets("aaa2").Range(s).Copy
l = Workbooks("book1").Worksheets("sheet1").Cells(1, 1).CurrentRegion.Rows.Count
Workbooks("book1").Worksheets("sheet1").Cells(l + 1, 1).Activate
ActiveSheet.Paste
これでＢｏｏｋ１の指定のシートへ（１）振り分け（２）累積
方法の説明したつもり。

お礼

すいません。お礼がおそくなりました。
無事問題解決しました。
ありがとうございましたm(__)m