主题：[求助]当前单元格的值

1、你的源码那里，div加上一个class="abc"的值，如

<div class="abc" ID="第一列" c >绑定表A第一列</div>

2、代码改成

谢谢老师指点！

网页源码这样改的：

此主题相关图片如下：aa.jpg

但是，利用msgbox（）测试获取div内容的代码，仅运行到虚线处，请老师看看是什么原因，谢谢！

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then
        Dim divs As object = elem.GetElementsByTagName("div")

-------------‘下面的没运行

        For Each div As object In divs
            'output.show(div.innertext)
            'ClipBoard.SetText(div.innertext)    '写入剪贴板
            Forms("朗读").open()
            Forms("朗读").Controls("TextBox1").Text = div.innertext
        Next
    End If
Next

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then
        msgbox(elem.innerText)
    End If
Next

谢谢老师！可以获取了。

但是我想一次性获取全部div内容，为什么只获取到一部分呢？

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then       
        For i As Integer = 0 To elems.count-1
            'msgbox(elems(i).InnerText)
            Forms("朗读").open()
            Forms("朗读").Controls("txtContent").Text = elems(i).InnerText           
        Next       
    End If   
Next

能否弹出正确的div值？能弹出就可以了啊。

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then        
            msgbox(elems(i).InnerText)
            'Forms("朗读").open()
            'Forms("朗读").Controls("txtContent").Text = elems(i).InnerText            
    End If   
Next

26楼弹出“未知编译错误”；

24、25楼   Forms("朗读").Controls("txtContent").Text 获取的值是最后一个div的值

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then        
            msgbox(elem.InnerText)
            'Forms("朗读").open()
            'Forms("朗读").Controls("txtContent").Text = elems(i).InnerText            
    End If   
Next

Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")

Forms("朗读").open()

Forms("朗读").Controls("txtContent").Text = ""
For Each elem As object In elems
    If elem.getattribute("className") = "abc" Then        
            msgbox(elem.InnerText)
            Forms("朗读").Controls("txtContent").Text &= elem.InnerText            
    End If   
Next

29楼的代码行了，谢谢老师！

我想在每个div内容之间增加一个换行符，为什么没起作用呢？

......

Forms("朗读").Controls("txtContent").Text &= elem.InnerText  & vbcrlf

......