如何使用vba代码保存从Excel工作表中读取的date数据？

我有数据以时间数据（HH：mm：ss）的forms保存在Excel工作表中。 但是，当我从图表中读取数据并尝试保存信息时，数值没有正确保存，而且给出了一个十进制string。

sub generic() dim s as string s = Range("A1").Value 'A1 is where the value is stored. In this case it is 7:30:30. MsgBox s end sub 

输出是小数（0.623 ..我相信）。 我只是希望输出成为单元格A1中的信息（7:30:30）。 我也不能影响工作表属性一切都必须用vba代码来完成。

Answer 1

你需要改变线路

Dim s As String

至

Dim s As Date 。

它应该现在工作。

Answer 2

如果你想把Dim s as String保持Dim s as String ，你可以使用下面的代码：

 s = Format(Range("A1").Value, "HH:MM:SS") MsgBox s