VBAでテキストファイルをEXCELに取り込む方法

VBA初心者です。下記の要件の動きについてどう組めば良いのかほぼ？？？の為、どなたか回答よろしくお願いします。

・インポート時はテキストを毎回選択する。←これは何とか実装できています。
・インポートされたテキストファイルは「テキストファイル名」で別作成する。このインポート先Excelファイルには項目は定型で作成されており、行途中から、データの貼り付けを行いたい。
・このExcelファイルには罫線を挿入したい。

以上です。何だか詳しい内容がかけなくてゴメンナサイ！

No.1 ベストアンサー 回答者： cmc32000 回答日時： 2006/12/26 13:21

Dim datal As String

txtname = "ファイル名（フルアドレス）"
Open txtname For Input As #1
For i = 1 To 100
Line Input #1, datal
Cells(i, 1) = datal
Next i
Close #1
Application.ScreenUpdating = True
こんな感じで、テキストファイルの1行から100行を、セルに取り込めます。途中からと言うのであれば、ifを追加して、条件を満たしたときにセルに書き込むようにしたら良いと思います。
セルに罫線、というのは別途追加してください。オートマクロで書き方を見て、それをマクロに書き込みます。

この回答へのお礼

ありがとうございます！トライしてみます。
追加で質問したいのですが、この処理時１セル内にデータ１つといった
区切り処理みたいなものは組めますか？できたら、その方法も…
よろしくお願いします。

お礼日時：2006/12/26 15:34