VBAでのテキスト出力で値の範囲が変わってしまう

Question

前提・実現したいこと

Excelシートの一部分を選択してテキスト出力するマクロを組んでいます。
前提として、9割はできています。
しかし、手作業でコピペしたものとマクロを組んで出力されたテキストファイルを比べると、ほんの少しですが誤差が生まれます。
その誤差を改善させる解決案が欲しいです。

VBA初心者なのでここまでで手一杯でした。

似ている現象としては、コピペの際に
”Range("A1").PasteSpecial paste:=xlPasteValues”
を使えば、正しい値が貼り付けられましたが、
今回はコピペではなく、選択したセルをテキスト出力する形にしたいので手が止まってしまいました、、

発生している問題・エラーメッセージ

　　　　　マクロの結果　　　　　　　　　　　　　　　　　　　　　コピペ
793.930882	0	724.365153　　　　　　　　793.9308822	0	724.3651534	

該当のソースコード

Private Sub CommandButton1_Click()
    Call autoMakeCGSetFileMain
End Sub

Public Function autoMakeCGSetFileMain()
    
    Dim tmpRngBuff As Range    'コピー範囲を一時的に格納するバッファ
    Dim sFilePath As String     'パス\ファイル名
    
    sFilePath = ActiveWorkbook.Path & "\CGtxt"

    Sheets("■CG").Select
    Range("G4") = "STD"
    Range("H4") = "STD"
    Range("I4") = "STD"
    Application.ScreenUpdating = False
    
    'コピー元の選択
    Set tmpRngBuff = Range("A15:E1163").Cells
    
    '取得Raneをファイル出力
    Call rngToFile(tmpRngBuff, sFilePath)
End Function

Public Function rngToFile(rUsed As Range, sFilePath As String)

    Dim fs     As New FileSystemObject '// FileSystemObject
    Dim ts     As TextStream           '// TextStream
    Dim crtRng As Range     'For Eachのカレント行Range
    Dim jdgRow As Integer   'Dim iRow As Integer '判定用
    Dim tmpStr As String    '文字列バッファ
    
    '// FileSystemObjectで新規ファイル作成
    Set ts = fs.CreateTextFile(sFilePath, True, False)
   
    ' 変数初期化
    jdgRow = 0
    tmpStr = ""
    
    '// 1セルずつループ
    For Each crtRng In rUsed
        If jdgRow <> crtRng.Row Then
            '// ループ初回時ではない場合
            If crtRng.Row <> rUsed.Row Or crtRng.Column <> rUsed.Column Then
                '// 行が変わったため改行コードを付与
                tmpStr = tmpStr & vbCrLf
            End If
            
            '// 行の先頭値を連結
            tmpStr = tmpStr & crtRng.Text
        Else
            '// タブ文字区切りで連結
            tmpStr = tmpStr & vbTab & crtRng.Text
        End If
        
        '// 現在行取得
        jdgRow = crtRng.Row
    Next
    
    ' ファイルに書き込む
    ' セルの文字列が存在する場合
    If tmpStr <> "" Then
        Call ts.WriteLine(tmpStr)
    End If
    
    '// ファイルClose
    Call ts.Close

End Function

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

こんにちは。
プログラム拝見しました。

For文内の値を取得するコードである「crtRng.Text」は、Excelに表示されている通りの値を取得してしまいます。
Excelのセルの初期の書式は【標準】になっていると思うので、列幅に応じて、表示桁数が変わると思います。
セルに入力されている、真の値を取得するためには、「crtRng.Value」とすれば、取得できます。

以下の画像では、セルの表示は794（セルの書式で少数以下は表示しないにしている）ですが、
セルに入力しているのは、793.9308822です。
crtRng.Textで値取得すると・・・794が取得される。
crtRng.Valueで取得すると・・・793.9308822が取得される。

こんな感じです。

ですので、修正する箇所は２か所だけでいいと思います。
以上です。