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

解決

北村 2005-08-26 20:18:36 No: 124502

[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

魔界の仮面弁士 2005-08-26 20:24:40 No: 124503

Workbook オブジェクトの SaveAsメソッドを試してみるとか。

北村 2005-08-26 20:32:58 No: 124504

早い回答をありがとうございます。
誤り送信なため閉めます。

北村 2005-08-26 20:33:39 No: 124505

終わり

Blue 2005-08-26 20:41:25 No: 124506

> 誤り送信なため閉めます。
意味不明。どっちのスレも誤送信っていってる。
# 向こうにはひともともなし。。。( TДT)

> 終わり
どのように解決にいたったか書いといてください。

> できるだけ処理が早い方法を探しています。理想は数秒です。
なら、ドンくらいはやくなったか等。

Blue 2005-08-26 20:42:59 No: 124507

> 意味不明。どっちのスレも誤送信っていってる。
うゎ。。。３つもあったのね。。。orz

# 回答ついてるとこ閉める必要あるのかとも思う。

北村 2005-08-26 20:49:14 No: 124508

送信を２回押したからだと思います。すみませんでした。