|
▼IROC さん:
>Sub サンプルマクロ()
*以下略*
うわ、どうもありがとうございました。きれいなコードですねぇ。まるまる頂きます。感謝感激です。これで僕の仕事の方は問題なく進むことになりました。
ところで、どうやら本質は「csvファイルを明示的に書き出せない」と言うところにあるわけではなくて、「エクセルが自ら書き出したcsvを、csvと認識して読み込まない」というところにあることに気がつきました。
具体的に説明しますと、くだんのファイルのデータは、一行が
2,2,1,埼玉,Q,,1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,
8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,C
てな感じの行が30〜40行あるだけの何の変哲もない csv ファイルです。(こんなファイルが数十個ある)。
これを読み込んで、まとめ用のファイルにコピぺして
Workbooks.Item("hoge.csv").Close SaveChanges:=True
で書き出すと、「""で囲まれた、一行がタブで区切られたデータ」(具体的には下記の様)
"2 2 1 埼玉 Q 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 C"
になってしまうのです。(ただし最初のファイルだけ)。
まぁそう書き出しても、きちんと読み込んでくれさえすれば許してもいいのですが、これをエクセルで開くとA列に全ての項目がむぎゅっと押し込められて(上の例なら2からCまで)表示されてしまうのです。おいおい。
自分で書き出したファイルぐらい責任を持って元通りに読み込んでほしいと思います。どうなってんでしょうね。
|
|