エクセルVBAでの日付変換

質問

FTPで送信されたデータをVBAで加工してテキスト形式に落とし込むVBAを作っているのですが日付部分で困っております。

dim strDate as string
strDate=format(now(),"yyyymmddhhmmss")

上記で作成したデータをP列に流し込み作成されたデータをテキストに変換し保存すると2.00901E+13と変換されてしまいます。

どのような対処方法がありますでしょうか？

回答No.2

o_chi_chi · ベストアンサー

edomin2004さんと同じことですが
(1)セルの形式を文字列にする。
Selection.NumberFormat = "@"
(2)文字列で設定する。
strDate = "'" & format$(now(),"yyyymmddhhmmss")

回答No.4

redfox63

Excel側で日付(または時刻)として認識する必要があるのでしょうか?
必要ないのでしたら セルの書式を文字列『@』にしてから代入しましょう

必要なのでしたら
Cells(1,16).NumberFormat = "yyyymmddHHMMss"
Cells(1,16).Value = Now
といた具合にしてみましょう

お礼

皆様回答ありがとうございました。
o_chi_chi様の（２）の方法で希望通りの動きを実現できました。

回答No.3

Hardking

別の対処方法として、CStr関数を使用する方法もあります。
dim strDate as string
strDate = CStr(format(now(),"yyyymmddhhmmss"))
以上です。

回答No.1

noname#77845

事前にＰ列を「文字列」に変更しておくことは出来ませんか？