如何在VBA中将string读入logging集

我有一些代码从数据库中读取logging。 当我读，logging集variables修改表格值为自己的格式。 例如：

在数据库中

时间值是12345（不是date和时间），但是当logging集读取它时，它来自例如：23-06-2012 10:15:23

我刚刚发现logging集本身就是以自己的格式存储值。

Set rs = CmdSqlData.Execute()

那么有什么办法来定义一个logging集为String ？

这是代码。

 Dim rs As ADODB.RecordSet Set rs = CmdSqlData.Execute() Do While (rs.EOF = FALSE And rs.BOF = FALSE) p = rs.GetRows(1) cell(1,1) = p(0,0) Loop 

任何人都可以让我知道如何读取数据作为string（因为它在数据库中），以便不会发生格式的变化。

注意：由于其他要求，我无法转换Excel单元格格式，但我想从string表中读取everthing

Answer 1

如果你写

 CStr(p(0,0)) 

对于单元格，Excel将转换为适合内容的types，所以如果p（0,0）是一个数字，则单元格将是数字。

但是，如果你写

 ActiveSheet.Cells(1, 1) = "'" & p(0, 0) 

单元格A1将包含'2来查看，但可以作为一个string操纵。 这是从Excel的早期，在哪里input一个string，你必须用一个单引号前缀。

 A1 2 =A1=2 FALSE =A1="2" TRUE