エクセルファイルからテキストファイルを作成するには？

解決

---

[Xp professional vb6.0 Excel2002]
先ほど誤って送信しました。
8000行8列のエクセルファイルをテキストファイル（カンマ区切り）に作り変えます。
その際に、できるだけ処理が早い方法を探しています。理想は数秒です。
これまで試したのは、
１．
n = FreeFile
endRow = xlSheet.Cells(65536, 1).End(xlUp).Row
Open "temp.txt" For Output As #n
   For i = 1 To endRow
       a = xlSheet.Cells(i, 1)
       Write #n, a
Next i
Close #n

２．
xlSheet.Range(Cells(1, 1), Cells(endRow, 7)).Copy
n = FreeFile
Open "temp.txt" For Output As #n
Print #n, Clipboard.GetText()
Close #n

３．エクセルファイルを開き、SaveAsでFileName="temp.txt" FileType=xlCSV  で保存する。

とする３つです。もっとも早いのは２のクリップボード経由でした。
ただし、２はこの後にテキストファイルのタブ区切りをカンマに置換する工程が入ります。
他にＤＡＯを使う方法も調べましたが、技術不足なためまだ試していません。
他にどのようなアイデアがあるかご教授願います。

編集 削除

---

追加です。
１．に関して、For内の処理はａ〜ｈの8つ行われます。
Write #n, a & "," & b & "," & c & "," & D & "," & e & "," & f & "," & g & "," & h
です。

編集 削除

---

誤り送信スレに回答いただいた、魔界の仮面弁士さん、Blueさん、申し訳ありませんでした。

編集 削除

---

結局 ちゃんとした CSVファイルになるまでに要する時間は３が一番早くなるのでしょうか？
(２はタブ区切りCSVファイル→タブの置換処理を合わせて計測すべき)

編集 削除

---

SaveAsを使いました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。