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

質問

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

回答No.4

imogasi · ベストアンサー

ＶＢＡですが
フィールド固定長の場合の例です。
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)
で定義します。
ＣＳＶ形式の場合はフィールドデータの切りだしをＳｐｌｉｔ関数を使って分離すれば、コードが短いです。

お礼

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

回答No.3

coco1

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

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

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

回答No.2

yama_x

プログラムというより、Excelのマクロのレベルで
なんとかなると思います。

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

参考URL：

http://www.sk2.aitai.ne.jp/~happy/

回答No.1

akamanbo

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

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

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

補足

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