ＥＸＣＥＬ 転送データの表示: 日付けと時刻

質問

ＥＸＣＥＬ　転送データの表示　日付けと時刻
Cells(count, 1) のデータを2008/1/10 18:10:44
転送したらaaaのworksheetに39457.7574537037と表示された。
元のように表示するには、どうコード書けばいいでしょうか。

Workbooks("aaa.xls").Worksheets("work").Cells(trans_ct, 1) = Cells(count, 1)

回答No.2

suz83238 · ベストアンサー

間違えました。

With Worksheets("aaa.xls").Cells(trans_ct, 1)
.Value = Cells(1, 1)
.NumberFormatLocal = "yyyy/m/d h:mm"
End With

お礼

おかげで解決しました。ご回答どうもありがとうございました。

回答No.1

suz83238

With Workbooks("aaa.xls").Worksheets("work")
　　　.Cells(trans_ct, 1) = Cells(count, 1)
　　　.NumberFormatLocal = "yyyy/m/d h:mm"
End With

とすればOKでしょう。