ベストアンサー

テキストデータをエクセルに変換したい！

2003/08/12 11:46

改行されていない連続したテキストデータをエクセルに変換したいのですがどうしたらいいのでしょう？普通、レコード毎に改行されたテキストデータならば、エクセルから該当のテキストファイルを読み込めば区切ってやればいいと思うのですが、改行されていないため、縦に並ばずにすべてのデータが横に並んでしまっています。すいません、教えてください。

merry-nice
お礼率6% (1/15)

オフィス系ソフト
回答数7
ありがとう数8

みんなの回答 （7）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2003/08/12 21:49 回答No.7

もしレコード数（エクセルに読みこんだとして、行数に相当する）が少ないのなら、メモ帳に読みこんで、シコシコと、目視で区切りを探し（，の数を数えていく）エンタキーを押せば良いでしょう。エディタとはメモ帳のようなソフトです。これが面倒で出来ない数なら、ＶＢＡで、区切りのカンマの数を数え、項目が例えば４（氏名、郵便番号、住所、関係とか）なら、４つ見つかると改行コードをいれカンマは入れないように改造して、新しい別ファイルに書き出します。しかし補足を読むとＶＢＡを使ってもらえないような感じですね。改行コードとは何かのソフトで画面に表示した時に、次行に表示されている時は、前行の終わりと、当行の初めの間に、コンピュタの文字コード（但し文字は見えない）が入っている結果と考えられるケースが多い。具体的には１６進数表示で０Ｄ（復帰、ＣＲ）や０Ａ（改行、ＬＦ）や両方組み合わせた０Ｄ０Ａなどで２進数では０Ｄは００００１１０１です。０Ａは００００１１００です。これらは改行やレコードの終わりやファイルの終わりなどを表す特殊なコードで、タイプライタ以来の歴史的背景があり、そういう慣わしになっているものです。印刷のばあいも文字は出ないで機能をプリンタに指示するコードですが同じ改行復帰をさせます。

質問者

お礼 2003/08/13 11:10

皆さん、ありがとうございました。皆さんのお教えを参考に自分なりに調べましたら、１データ１００文字のランダムアクセスファイルであることが分かりました。そして「Ｇｅｔステートメント」を使用して以下のプロシージャを作成しましたところうまくいきました。本当にありがとうございました。今後ともよろしくお願いします。 Sub READ_RANDAM() Dim TMPVAR As String * 100 OBJFILE = FreeFile() Open "TEST.TXT" For Random As OBJFILE Len = 100 For n = 1 To FileLen("TEST.TXT") / 100 Get OBJFILE, , TMPVAR Cells(n, 1) = Mid(TMPVAR, 1, 100) Next End Sub 　　　　　　　　　　　　　　　　　　　　　　　以上

ログインすると、全ての回答が全文表示されます。

その他の回答 (6)

bari_saku
ベストアンサー率17% (1828/10269)

2003/08/12 16:53 回答No.6

具体的にどのようなデータなのか、もし差し支えなければ教えて下さい。

ログインすると、全ての回答が全文表示されます。

takkuni
ベストアンサー率24% (166/676)

2003/08/12 14:25 回答No.5

該当ファイルを右クリック、アプリケーションから開くをくりっく、プログラムの選択からエクセルを選択します。開いたら、編集～ファイル～文字の割付を選択します。セルA1から読み込まれるので、A1のセル幅を適当な長さにしてから実行してみて下さい。そうするとセル内にぴったり収まるようになります。改行する箇所（セル幅）を指定するのに何回か試行が必要かと思います。

ログインすると、全ての回答が全文表示されます。

Mozisan
ベストアンサー率43% (130/299)

2003/08/12 12:27 回答No.4

データ数が255以下ならば、コピー・貼付けで縦ならびに変えられます。２５６以上なら、他の皆さんがお答えされたように、テキストファイルを編集する必要があります。データの区切りなどを補足すると、より具体的な編集方法を答えてもらえますよ。 ○コピー・貼り付けの方法１．範囲を選択し、コピーボタンをクリックします。２．貼り付けるセルをアクティブにし、メニューバーの「編集」－「形式を選択して貼り付け」をクリックします。３．「形式を選択して貼り付け」ダイアログの「ＯＫ」ボタンのすぐ上に「行列を入れ替える」チェックボックスがある（Excel2000の場合）ので、クリックしてチェックを表示させます。４．「ＯＫ」ボタンをクリックします。

質問者