ＥＸＣＥＬのテキスト変換

ＥＸＣＥＬ９７ですが、以下のようにデータをテキスト変換する方法を教えてください。
データの中で１項目だけを取り出してテキストデータに変換したいのです。
　例）　安部太郎　[e-mail]　999-222-2222
佐藤太郎 [e-mail] 999-333-3333
というデータのＵＲＬだけを抽出して
　　　　[e-mail]
,
[e-mail]
とデータ毎に改行して、しかも間に,の行を入れてテキストとして出力したいのです。
よろしくお願いします。

No.1 回答者： Methyln 回答日時： 2001/10/15 11:04

>データの中で１項目だけを取り出してテキストデータに変換したいのです。

>例）　安部太郎　[e-mail]　999-222-2222

これって１つのセルに全部書かれているということではないですよね？
で、あれば、URLのセルの行だけ選択して、他のシートにコピーして
コピーされた行の次の行にカンマをコピーして、CSV形式でファイル出力
すれば、希望通りになると思います。

もし、同一セルに書いてあるなら、一度CSV形式で出力して、
そのファイルをカンマとスペースで区切るようにしてあげれば、別々の
セルに分かれます。

この回答へのお礼

ありがとうございます。
データは複数のセルに書かれています。

データ件数が多く、データの間の行にカンマを入れなけ
ればならない（挿入）ために簡単にできないかと思って
います。
できれば変換時にカンマの行を自動挿入できればと思っ
ています。

お礼日時：2001/10/15 13:13

No.2 回答者： k_eba 回答日時： 2001/10/15 11:09

参考回答として，のテキストを入れない方法で回答します

例題だとＢ列がアドレスのようですので
Ｂ列をコピーして
新しいエクセルに貼り付け
登録する時にＣＳＶで登録すればＯＫです。

なぜ，行が必要か不明な為、参考回答です。

何かあれば補足して下さい。

この回答へのお礼

ありがとうございます。
ＥＸＣＥＬのデータをＷｉｎｄｏｗｓでないシステム
に渡すために、データの区切りの識別としてカンマ行
が必要なようです。

お礼日時：2001/10/15 13:17

No.3 ベストアンサー 回答者： nishi6 回答日時： 2001/10/15 11:19

A2から下方向にデータが並んでいるときの方法です。

必要なURLの前後は『半角スペースとしています』
標準モジュールに貼り付けます。ご参考に。

Public Sub writeURL()
　　Dim outFilename As String '出力ファイル名
　　Dim rw As Long '行カウンタ
　　Dim dt As String 'データ
　　Dim pot1 As Integer '区切り位置1
　　Dim pot2 As Integer '区切り位置2

　　outFilename = "C:\My Documents\・・・・" & "\myTestFile.txt"
　　Open outFilename For Output As #1

　　For rw = 2 To Range("A65536").End(xlUp).Row
　　　　dt = Range("A" & rw)
　　　　pot1 = InStr(dt, " ")
　　　　pot2 = InStr(pot1 + 1, dt, " ")

　　　　If rw <> 2 Then Print #1, ","
　　　　Print #1, Mid(dt, pot1 + 1, pot2 - pot1 - 1)
　　Next
　　Close
End Sub

この回答へのお礼

お礼が遅くなりました。
教えて頂いたモジュールをちょっと変えて実行したところ
上手くいきました。
ありがとうございました。

お礼日時：2001/10/15 19:31

No.4 回答者： k_eba 回答日時： 2001/10/15 14:15

エクセルだけでは実現可能では無いのでは？

したがって先ほどのＣＳＶを変換してはいかがですか
ozconv 簡単・テキストコンバータ
HTMLの表からCSVに変換したり、引用符つけたり、コード変換したり、色々加工可能
と色々書いてありました
別にＨＴＭＬにこだわらず一回試されたらいかがですか？

参考URL：http://www.vector.co.jp/soft/win95/net/se162031. …

この回答へのお礼

アドバイスありがとうございました。
nishi6さんに教えて頂いたモジュールでできました。
おそらく私の質問内容があまり要領えず、お手数をおかけ
したと思います。
すいません。ありがとうございます。

お礼日時：2001/10/15 19:37