エクセル2003でCSVファイルを開くときに列と行を入れ替える方法はありませんか

質問

エクセル２００３を使用しています。
ＣＳＶ形式のファイルがあるのですが、エクセルで開くと列が２５６を越えているためにエラーがでて、全てが表示されません。行は２５６を越えていないので、エクセルで開くときに列と行を入れ替えたいのですが、何か方法はないでしょうか？
Windows2000を使用しているためエクセル２００７は使えません。

回答No.4

imogasi

>ＣＳＶファイルがカンマ区切りではなくタブ区切りでしたので
説明不足とは思うが、カンマ区切りでなくTAB区切りなら
s = Split(a, ",")
のところを
s = Split(a, vbTab)
と訂正すればよい。
これぐらい推測でき無いなら、質問の回答を出してもらっても、仕様が無いのではと思う。
ーー
A1に="as" & CHAR(9) & "ffff"　と入れて
下記実行しうまくいくこと確認しました。
Sub test01()
a = Cells(1, "A")
s = Split(a, vbTab)
For i = 0 To UBound(s)
MsgBox s(i)
Next i
End Sub

回答No.3

imogasi

＃２です。
翌日（１１/３）になって、同じような質問を見ましたので
そちらに対し答えたものですが、VBAでのコードを作ってみたので挙げておきます。
ーー
Sub test01()
Open "C:\Documents and Settings\xxxx\My Documents\testcsv.csv" For Input As #1
j = 1
While Not EOF(1)
Line Input #1, a
s = Split(a, ",")
For i = 0 To UBound(s)
Cells(i + 1, j) = s(i)
Next i
j = j + 1
Wend
Close #1
End Sub
ーーー
Openの後のファイル名はパスも含めて質問者のケースのものに書き換えるkと。
標準モジュールに貼り付けて、実行。
ーー
例データ　CSV ファイル
"aaabbb","ss",1
"aa","d",2
"dd","f",3
"ff","g",4
"gh","hh",5
"jjk","jj",6
"sd","k",1
"ss","a",2
結果
エクセルのシート
"aaabbb" "aa" "dd" "ff" "gh" "jjk" "sd" "ss"
"ss" "d" "f" "g" "hh" "jj" "k" "a"
1 2 3 4 5 6 1 2
ーー
付記
コードの書き方について２，３種類あり、一番旧い形のコードですが、コードの文字数が一番少ないので、上例を挙げておきます。

お礼

説明不足ですみません、ＣＳＶファイルがカンマ区切りではなくタブ区切りでしたので作っていただいたＶＢＡではうまく処理できませんでした。参考にさせていただいて行列入れ替えのＶＢＡをつくってみたいと思います。ありがとうございました。

回答No.2

imogasi

エクセルのシートに読み込めれば、ご存知の、編集ー形式を選択して張り付けー行と列を入れ替えるで済みますが、読み込めない以上どうしようもないですね。
ーー
（１）フリーのソフトを探す
（２）CSVファイルを２５０列とその右列で分割する（VBA)
（３）VBAでCSVレコード（各行）を読んで、データを列方向にセットする（VBA)
（４）２００７を使えるところを見つける。
（２）、（３）とも１０数行で済むプログラムなのですが、VBAの経験が無ければ、できない。（１）もVBAを知っているものには、１０数行のプログラムで済むので、それだけを公表するのも、と思ってあまり無いと思う。

回答No.1

redowl

似た質問と回答
http://q.hatena.ne.jp/1150805179

お礼

ありがとうございました。
参考にさせていただきます。