投稿時間：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
|