Excel访问Domino VBA访问lotus domino

weijia3624

已于 2024-01-11 11:40:21 修改

阅读量257

点赞数

分类专栏： Eexcl VBA domino 文章标签： VBA访问lotus VBA访问domino Excel访问lotus Excel访问domino

于 2023-06-15 21:00:14 首次发布

本文链接：https://blog.csdn.net/weijia3624/article/details/131235660

版权

domino 同时被 2 个专栏收录

78 篇文章 6 订阅

订阅专栏

Eexcl VBA

3 篇文章 1 订阅

订阅专栏

本文展示了一种方法，使用VBA（VisualBasicforApplications）脚本直接从Excel访问和操作Domino数据库的数据。通过HTTP请求获取数据，然后利用MSXML2.DOMDocument对象解析XML响应，将数据加载到Excel工作表中。

摘要由CSDN通过智能技术生成

以前都是使用ls、java、sscs导出excel,现在能不能直接在Excel访问、操作Domino的数据呢？

当然可以了，可以使用VBA编写业务实现功能。VBA功能非常强大....。

源码CSDN下载

更多语言关联domino请查阅

Sub getxml()
   Dim xml As String
   Dim url As String
   Dim i As Long
   Dim m As Long
    
   Dim objXML As Object
   Dim xmlFile As Object
   Dim root As Object
   Dim oXML As Variant
   Dim Queries As Object
   Dim Texts As Object
   Dim check As Boolean
   Dim startNum As Long
   Dim endNum As Long
   
   Set oXML = CreateObject("MSXml2.DOMDocument")
   
   check = True
   
   i = 1 '第几行
   
   startNum = 1
   endNum = 100
   
   While check
   
    url = "http://127.0.0.1/demo.nsf/V_post?ReadViewEntries&start=" + CStr(startNum) + "&Count=" + CStr(endNum) + "&id=" + CStr(Rnd * 100)
    xml = httpGET(url, "admin", "3624") '访问的地址和用户及密码信息
    'Debug.Print "xml-->" & xml
   
    oXML.LoadXML xml
    
    Set Queries = oXML.SelectNodes("//viewentry")
    
     If Queries.Length < 100 Then
        check = False
     Else
        startNum = endNum + 1
        endNum = endNum + 100
    End If
    
    'Debug.Print Queries.Length
    
    For Each Query In Queries
        Set Texts = Query.ChildNodes '获取子元素
        i = i + 1
        m = 0 '第几列
        For Each TextQuery In Texts
            m = m + 1
            If i = 2 Then
                ThisWorkbook.Sheets(1).Cells(i - 1, m) = TextQuery.getAttribute("name") '获取属性
            End If
            
            ThisWorkbook.Sheets(1).Cells(i, m) = TextQuery.Text '获取值
        Next
        
    Next
   
   Wend
    
End Sub