A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
>CSVファイルがカンマ区切りではなくタブ区切りでしたので
説明不足とは思うが、カンマ区切りでなく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
- 回答日時:
#2です。
翌日(11/3)になって、同じような質問を見ましたので
そちらに対し答えたものですが、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"
12345612
ーー
付記
コードの書き方について2,3種類あり、一番旧い形のコードですが、コードの文字数が一番少ないので、上例を挙げておきます。
この回答へのお礼
お礼日時:2007/11/05 13:11
説明不足ですみません、CSVファイルがカンマ区切りではなくタブ区切りでしたので作っていただいたVBAではうまく処理できませんでした。参考にさせていただいて行列入れ替えのVBAをつくってみたいと思います。ありがとうございました。
No.2
- 回答日時:
エクセルのシートに読み込めれば、ご存知の、編集ー形式を選択して張り付けー行と列を入れ替えるで済みますが、読み込めない以上どうしようもないですね。
ーー
(1)フリーのソフトを探す
(2)CSVファイルを250列とその右列で分割する(VBA)
(3)VBAでCSVレコード(各行)を読んで、データを列方向にセットする(VBA)
(4)2007を使えるところを見つける。
(2)、(3)とも10数行で済むプログラムなのですが、VBAの経験が無ければ、できない。(1)もVBAを知っているものには、10数行のプログラムで済むので、それだけを公表するのも、と思ってあまり無いと思う。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) マクロ作成初心者です。CSVファイルの日付データについて 3 2022/12/14 06:02
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) ドキュメントに保存していたエクセルのファイルが開きません。 2 2022/12/02 09:38
- Excel(エクセル) エクセルでCSVを編集するとき、空白(NULL?)はどう入れますか 6 2023/06/08 15:30
- Excel(エクセル) デスクトップのエクセルで作成したファイルを開くと未記入のエクセルが開く 5 2022/08/17 15:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでファイルを閉じても...
-
共有しているEXCELシートのアク...
-
エクセルで複数のブックで「元...
-
エクセルの添付ファイルに記入...
-
エクセルの塗りつぶしの色が勝...
-
エクセルを開いたときのシート
-
CSVファイルでVBAを動かす方法
-
エクセルVBAでアクセスファイル...
-
Lotus 1-2-3のファイルをExcel...
-
メールのエクセル添付ファイル...
-
エクセルのハイパーリンクがう...
-
エクセルの中にエクセルを添付...
-
エクセルのロック解除の方法
-
ExcelファイルがDoxillionに突...
-
エクセルにクリックすると指定...
-
Windows11で画面下の帯の部分で...
-
2つのエクセルファイルをデュ...
-
~$ファイル名のファイルが出現...
-
変更されたリンク先を正しいも...
-
メモ帳(拡張子log)の数字デー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでファイルを閉じても...
-
共有しているEXCELシートのアク...
-
エクセルで複数のブックで「元...
-
エクセルVBAでアクセスファイル...
-
エクセルの塗りつぶしの色が勝...
-
エクセルの添付ファイルに記入...
-
Google Todoリスト
-
エクセルにクリックすると指定...
-
エクセルの中にエクセルを添付...
-
400KBのエクセルは重いの?
-
エクセルで1.5GBのファイルを開...
-
Lotus 1-2-3のファイルをExcel...
-
エクセルを開いたときのシート
-
メモ帳(拡張子log)の数字デー...
-
ExcelファイルがDoxillionに突...
-
CSVファイルをカンマ区切りのテ...
-
エクセルのシートが常に小さく...
-
2つのエクセルファイルをデュ...
-
Windows11で画面下の帯の部分で...
-
開くと警告の出るExcelファイル...
おすすめ情報