vbaにDouble型変数の小数点２桁を認識させたい

Question

各シートの名前を0.01,0.02,...,1.00,...,10.00、そして各シートに0.01dat,0.02dat,...1.00dat,...,10.00datを順に読み込ませたいのですが、1.00や2.00、10.00のときにvba内では小数点以下が省かれてしまって変数の値が1,2,10となってしまい、datファイル読み込むことができなくなってしまいます。
これを解決する方法はあるのでしょうか。

Sub データ登録()
    
Dim fileName As Double
Dim buf As String, n As Long
Dim NewWorkSheet As Worksheet
Dim datPath As String

datPath = "C:\Users\〇〇\Desktop\pleiades\workspace\フォルダ名\"


    For fileName = 10# To 0.01 Step -0.01　←ここを10.00にしたいのに10としてみられてしまう
        
        Set NewWorkSheet = Worksheets.Add()
        NewWorkSheet.Name = fileName
      
         
    Open datPath & fileName & ".dat" For Input As #1
    n = 0
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Cells(n, 1) = buf
        Loop
    Close #1
 Next fileName
End Sub

Answer 1

10.00～0.01の文字列を作り出したいのですね。
以下は、fileNameに10.00～0.01の文字列を設定するマクロです。
参考にしてください。

Public Sub test()
    Dim i As Long
    Dim fileName As String
    For i = 1000 To 1 Step -1
        fileName = Format(i \ 100, "0") & "." & Format(i Mod 100, "00")
        Debug.Print fileName
    Next
End Sub

Comments

[leeev]

回答ありがとうございます。
なるほど、文字列として扱ってしまえばよいのですね。Double型でどうにかしようとして簡単なことを見失っていました。

Answer 2

１００掛ければいいです
そして整数として処理しましょう

Comments

[leeev]

回答ありがとうございます。
これらのdatファイルは値0.01の時の計算データ、以下同様なのですが、やはりシート名とファイル名を連動させずに読み込んだあとシート名を変えた方が現実的ですかね？

[y_waiwai]

小数点付きの数値としてしまうと扱いが難しいので、整数にしてしまうほうがいいです
ファイル名から読む、あるいはファイル名にするときに工夫すればいいだけです