エクセルVBAで、数字をテキストファイルに書き出したい

質問

print #1,cells(1,1) のようにセルの値をテキストファイルに書き出しています。
セルには、6が入力されていて、表示は6.00　にしてありますが、書き出すと当然6になってしまいます。セルの書式を、文字列にすればいいのでしょうが、入力や計算の都合で、数値のままにしたいのです。見えている通りにテキストに書き出すには、どのようにしたら良いですか？
よろしくお願いいたします。

回答No.3

Wendy02 · ベストアンサー

こんばんは。

>print #1,cells(1,1) のようにセルの値をテキストファイルに書き出しています。
>表示は6.00　にしてありますが

そうでしたら、

Cells(1,1).Text 'たぶん、Cells(i,j) などとなると思いますが。
と、プロパティに.Textを使用してください。そうすれば、見えている通りに出力されます。

お礼

ありがとうございます。できました。右端にスペースが一つ入りますが、これは何とかなりそうです。

回答No.2

zap35

＃０１です。それではCells(1,1)の書式をTEXT関数に使用する方法ではいかが？

　wk = application.text(Cells(1,1),Cells(1,1).NumberFormatLocal))
　Print #1 , wk

回答No.1

zap35

書式が決まっているのであればTEXT関数で文字列にしてから書き出したらどうでしょうか。元のセルはいじりません

　wk = Application.Text(Cells(1,1),"0.00")
　Print #1 , wk

補足

ありがとうございます。
確かにそうだと思いますが、必ずしも書式が決まっているとも限らないのです。他のセルも含めて、見えたとおりに文字列にしたいのですが、無理でしょうか？