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

我将数据以时间数据（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代码完成。

您需要更改行

Dim s作为字符串

到

Dim s As Date

---

现在应该可以用了。

你需要换线

Dim s作为字符串

到

Dim s As Date

---

现在应该可以使用了。

如果要将

Dim s保留为字符串，可以使用以下代码：

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

如果要将
尺寸保持为字符串
，可以使用以下代码：

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

你对下面的答案有什么反馈吗？如果其中一位帮助您解决了问题，请给他们评分，并将他们的答案标记为“答案”。您对下面的答案有何反馈？如果其中一位帮助您解决了问题，请给他们评分，并将他们的答案标记为“答案”