从对象

Question

我尝试将查询导出到Excel，我收到了查询，然后将结果保存在：

 Dim _Result As Object = Nothing

_Result 声明为Object。 在下一个代码中，查询将保存到 _Result

中

        _Result = _Query.GetRecords(_pOP, _
                                       _pName, _
                                       _pLastName, _
                                       _pAdress, _
                                       _pEFSL, _
                                       )

在这一点上一切正常，但我想知道如何将结果转换为XLS文件。

nQuerys 是一个具有从数据库中检索信息的过程的类。函数 GetRecords（函数为nQuerys）在列表中重新调整信息然后是AJAX_Directory 信息存储在 _Result 后收到信息，谢谢你的回答。

这是我的代码完整。谢谢你的帮助。

<WebMethod>
Public Shared Function AJAX_Directory(_pOP, _
                                       _pName, _
                                       _pLastName, _
                                       _pAdress, _
                                       _pEFSL, _
                                       ) As Object

    Dim _Query As New nQuerys   <--------- This is a class where I have all my procedures that retrieve information from the database
    Dim _Result As Object = Nothing

    Try

        _Result = _Query.GetRecords(_pOP, _
                                       _pName, _
                                       _pLastName, _
                                       _pAdress, _
                                       _pEFSL, _
                                      )

        Return _Result 

    Catch ex As Exception
        Return ex.Message
    Finally
        _Query = Nothing
    End Try

End Function