使用Sharepoint对象模型来获取名称并避免转换成数字。

使用以下代码：

Dim objSPSite As New SP.Site("http://sharepointserver") Dim objSPWeb As SP.Web Set objSPWeb = objSPSite.OpenWeb("/sitename")

Dim strSql As String strSql = "SELECT [Title] FROM [Lists] WHERE [ID]=1"

Dim objRS As New ADODB.Recordset objRS.Open strSql, objSPWeb.Lists("ListName").ParentWeb SiteCollection.DataBaseConnectionString, adOpenStatic, adLockReadOnly

Do While Not objRS.EOF Debug.Print objRS.Fields("Title").Value Loop

objRS.Close Set objRS = Nothing

objSPWeb.Dispose Set objSPWeb = Nothing objSPSite.Dispose Set objSPSite = Nothing

以上代码示例使用Sharepoint对象模型来获取名称，避免将其转换为数字。