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

解決


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

[Xp professional vb6.0 Excel2002]
8000行8列のエクセルファイルをテキストファイル(カンマ区切り)に作り変えます。
その際に、できるだけ処理が早い方法を探しています。理想は数秒です。
これまで試したのは、
1.
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


Blue  2005-08-26 20:23:55  No: 124510

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


北村  2005-08-26 20:34:57  No: 124511

誤り送信なため閉めます


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加