csvファイルへの書き出し

下記のテキストファイルがあります。

企業名、コード、従業員数、住所、電話
-------------------------------------

この中から企業名、住所のみ別のシートにｃｓｖファイルとして書き出すにはどうしたらいいのでしょうか？？？

No.5 ベストアンサー 回答者： imogasi 回答日時： 2005/08/11 21:54

Sub test02()

Open "C:\Documents and Settings\XXX\My Documents\text1.txt" For Input As #1
Open "C:\Documents and Settings\XXXX\My Documents\text3.csv" For Output As #2
While Not EOF(1)
Input #1, a, b, c, d
Write #2, a, d
Wend
Close #1
Close #2
End Sub
４項目の場合です。
1番目と４番目の項目を残します。
Text1が
1,2,a,b
2,3,d,f
23,45,f,g
Text3は
1,"b"
2,"f"
23,"g"

No.4 回答者： taseki 回答日時： 2005/08/11 15:49

VBカテゴリ、シートという言葉から、ExcelのVBAだと仮定して、以下サンプルコードです。

-----------------------------------
Sub SaveCSV()

Dim strFrom As String, strTo As String, strDlm As String

strFrom = "C:\test1.txt" ' ********** 元ファイル
strTo = "C:\test2.csv" ' ********** 保存ファイル
strDlm = "、" ' ********** 区切り文字

Workbooks.OpenText Filename:=strFrom, Other:=True, OtherChar:=strDlm, _
FieldInfo:=Array( _
Array(1, xlGeneralFormat), _
Array(2, xlSkipColumn), _
Array(3, xlSkipColumn), _
Array(4, xlGeneralFormat), _
Array(5, xlSkipColumn) _
)
ActiveWorkbook.SaveAs strTo, xlCSV
ActiveWorkbook.Close False
MsgBox "完了"

End Sub

No.3 回答者： ept63 回答日時： 2005/08/11 08:51

元のテキストファイルはご質問のように[、]で区切られているのですか？

詳細がいまいちわからないのですが[、]で区切られているものとして回答します。
まずＥＸＣＥＬを開きます。
ＥＸＣＥＬから[ファイルを開く]を選びます。
（見えない場合はファイルの種類をすべてのファイルにしたら見えると思います。）
テキストファイルウイザードでカンマやタブで区切られたフィールドを選択し次に移ります。
区切り文字を[その他]を選択し、[、]を入力し次に移ります。
以上でＥＸＣＥＬに取り込めるので
後は保存時にＣＳＶ形式で保存してやれば完了です。

自動化するなどでＶＢのコマンドが必要であればここにレスください。
また現れるかと思います。では。

No.2 回答者： norikunny 回答日時： 2005/08/11 08:50

エクセルファイルでテキストファイルを読み込み、住所欄以外を削除、ＣＳＶとして書き出してはいかがでしょうか。

No.1 回答者： shoshoshosho 回答日時： 2005/08/11 08:47

安易に考えると、

テキストファイルをLineInputで一行ずつ読み込んで、
企業名、住所を抜き出し、
Printでカンマ区切りで出力する。
となりますが、こういうことではないですか？