投稿日	： 2004/08/31(Tue) 18:43
投稿者	： よっしー
ＵＲＬ	：
タイトル	： セルに配列として出力

エクセルのCSV形式ファイルを読み込み、カンマ区切りで値を違うファイルに出力したのですが、
出力結果が１つのセルに全て格納されてしまいました。
そこで、カンマ区切り毎に（1つのデータ毎に）一つのセルに出力したいのです。
この場合、配列を使うとよいのでしょうか？
また、その場合にはどのようなソースにしたらいいでしょうか？
教えて頂ければ幸いです。
ソースを以下に示します。


Private Sub Command1_Click()
   Dim filedir As String
  
   filedir = "C:\carry000\"
'読み込みCSVファイル名を獲得するため、"hoandir"ファイルをオープン
   Open filedir & "carry001.csv" For Input As 1
'一覧表として必要な項目を書き込むためのファイルをオープン
   Open filedir & "kekka.csv" For Output As 3
   Print #3, "データNo.,ゲージ1,ゲージ2,ゲージ3,ゲージ4,ゲージ5,ゲージ6,ゲージ9, ゲージ10, ゲージ11, ゲージ12, ゲージ13, ゲージ14, """
          
'ファイルの終わりに達するまで、"roop"までの処理を続ける
   Do Until EOF(1)
      Line Input #1, ReadLine
'ファイル"kekka.csv"に必要な値を書き込む
      Write #3, ReadLine
      Loop
'ファイルを閉じる
   Close #1
   Close #3
  
End Sub

★ - セルに配列として出力 - よっしー 08/31-18:43No.256
• Re: セルに配列として出力 - 花ちゃん 09/01-10:27 No.259
  • Re^2: セルに配列として出力 - よっしー 09/01-12:17 No.262