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

---

１００００個のデータが入っているシングル型のデータファイルを読み出し、
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

編集 削除

---

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

  Cells(Col, row) = f.ReadLine

とか。

編集 削除

---

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

    Dim fs As New FileSystemObject
    Dim f As TextStream

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。