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

名前

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

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