Question

我正在尝试从某些Facebook帖子中提取评论并将该信息放入表格中。

我可以复制评论者及其评论：

TAG POS = 1 TYPE = DIV ATTR = CLASS：UFICommentContent EXTRACT = TXT

但我不确定如何单独获取此信息以将其放入如下表中： COMMENTER NAME |评论| COMMENTER'S FACEBOOK URL

有什么建议吗？

Answer 1

如果您计划将其存储在Excel中，请使用VBA运行您的imacro（此功能仅适用于企业版，vba集成，即。）。

您需要做的就是创建一个包含imacro脚本和行迭代更新的循环。像这样：

row=1 'choose which row to start from
Do While True
    ret = imac.iimPlay("CODE:TAG <line to extract commenter name>" & vbCrLf & _
    "TAG <line to extract comment>" & vbCrLf & "TAG <line to extract URL>")
    'Determine when to stop
    If not ret < 0 then
        Worksheets("Ur wksht").cells(row, 1).value = imac.iimGetExtract(1)
        Worksheets("Ur wksht").cells(row, 2).value = imac.iimGetExtract(2)
        Worksheets("Ur wksht").cells(row, 1).value = imac.iimGetExtract(3)
    Else
        MsgBox("All Done!")
        Exit Sub
    End If
    'iterate row
    row = row + 1
Loop

希望这有帮助。

用IMacros提取Facebook评论

1 个答案: