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

解決

---

[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 #lngFileNo

編集 削除

---

WorkBook の SaveAs で FileFormat:=xlCSV を指定すればいいのでは？

編集 削除

---

誤り送信なため閉めます

編集 削除

---

名前

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

本文

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