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

Question

我以时间数据（HH：mm：ss）的形式将数据保存在Excel工作表中。但是，当我从图表中读取数据并尝试保存信息时，值未正确保存，并且我得到一个十进制的字符串。

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

输出s是小数（0.623 ..我相信）。我只想将输出作为字符串A1中的信息作为字符串（7:30:30）。我也不能影响工作表属性，一切都必须用vba代码完成。

Answer 1

您需要更改行

Dim s As String

到

Dim s As Date。

现在应该可以了。

Answer 2

如果您想保留Dim s as String，可以使用以下代码：

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