テキストデータ→Ｅｘｃｅｌ変換ソフト

テキストデータを読み込みＥｘｃｅｌに自動的に貼り付けるソフトを作りたいのですが、どのようにすればよいのでしょうか？

No.4 ベストアンサー 回答者： imogasi 回答日時： 2004/06/06 11:25

ＶＢＡですが

フィールド固定長の場合の例です。
Sub test01()
p = Array(0, 1, 5, 16, 20, 23, 30, 40)
Open "c:\My Documents\住所.txt" For Input As #1
i = 1 '第２行目からの場合
While Not EOF(1)
Line Input #1, a
MsgBox a
For j = 1 To UBound(p) - 1
Cells(i, j) = Mid(a, p(j), p(j + 1) - p(j) + 1)
Next j
i = i + 1
Wend
Close #1
End Sub
（１）ファイル名を変えること
（２）フィールドの区切りをp = Array(0, 1, 5, 16, 20, 23, 30, 40)
で定義します。
ＣＳＶ形式の場合はフィールドデータの切りだしをＳｐｌｉｔ関数を使って分離すれば、コードが短いです。

この回答へのお礼

皆様ありがとうございました。早速試してみたいと思います。

お礼日時：2004/06/06 21:00

No.3 回答者： coco1 回答日時： 2004/06/06 10:31

書籍は腐るほどあるのでヒントだけ。

ExcelのVBAでやる方法、WindowsScriptingHostという一種のマクロ言語を使ってやる方法があります。

OLEを理解できるのでしたらVB、delphiなどのプログラミング言語を使うことも可能です。

No.2 回答者： yama_x 回答日時： 2004/06/06 10:31

プログラムというより、Excelのマクロのレベルで

なんとかなると思います。

わたしもあまり詳しくはないですが、参考URLのような
サイトもありますので、頑張ってみてください。

参考URL：http://www.sk2.aitai.ne.jp/~happy/

No.1 回答者： akamanbo 回答日時： 2004/06/06 08:27

「作りたい」とは、自分でプログラムを組むということですか？

普通にかんがえれば、テキストをExcelで読み込むだけなんですが…

目指す結果がわかりません。

この回答への補足

説明不足でした。テキストデータを読み込んで、自動的に並べ替えし、そのグラフまで作成したいのですが・・・。自分でプログラミングしたいです。

補足日時：2004/06/06 08:35