single型のデータファイルをEXCELに読込み表示するには?


超初心者  2004-06-26 00:22:41  No: 114323

10000個のデータが入っているシングル型のデータファイルを読み出し、
EXCELのセルに入れていくマクロをVBAで作りたいのですが
うまく読み込めません。どうしたらよろしいか教えてください。
よろしくお願いします。ソースは以下のとうりです。

Sub singleC()

Dim Col, row As Integer
Dim FilePath As String
Dim fs, f

 CommonDialog1.ShowOpen

 FilePath = CommonDialog1.Filename
    

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(FilePath, 1, -2)

 Sheets.Add

  For Col = 1 To 1000

    For row = 1 To 10
  
      Cells(Col, row) = f  
  
    Next

  Next
  
  f.Close
End Sub


nanashi  2004-06-26 00:42:12  No: 114324

TextStreamはほとんど使ったことありませんが

  Cells(Col, row) = f.ReadLine

とか。


特攻隊長まるるう  2004-06-26 01:04:16  No: 114325

サンプルファイルなどでは変数の型が省略されてますが、
強引なプログラムを書かないためにも全ての変数の型を
調べておいた方がいいですよ?

    Dim fs As New FileSystemObject
    Dim f As TextStream

それと、データの数が10000個というのも何かの手違いで
少なかったり多かったりする事があるかもしれませんので
通常は AtEndOfStream プロパティを利用して読み込みます。
[VB6.0]
    Dim retstring As String
    Do While f.AtEndOfStream <> True
        retstring = f.ReadLine
    Loop


超初心者  2004-06-26 01:10:57  No: 114326

ファイルの形式すらわからない初心者ですみませんでした。
このデータファイルはバイナリファイルなので、
テキストでは駄目なのでしょうか?
どうしたらいいのかまったくわかりません。


nanashi  2004-06-26 01:28:37  No: 114327

Openステートメントを使えばバイナリ形式で読み込めます。


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




  


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