如何在Excel/Google表格中对站点进行Web抓取？

Sub Web抓取()
    Dim URL As String
    Dim HTML As New HTMLDocument
    Dim 抓取结果 As Object
    Dim 行号 As Integer
    
    ' 设置要抓取的网址
    URL = "https://www.example.com"
    
    ' 创建HTTP请求对象
    Set 抓取结果 = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    抓取结果.Open "GET", URL, False
    抓取结果.send
    
    ' 将返回的HTML内容解析为HTML文档
    HTML.body.innerHTML = 抓取结果.responseText
    
    ' 在工作表中输出抓取结果
    行号 = 1
    For Each 元素 In HTML.getElementsByClassName("要抓取的元素类名")
        Cells(行号, 1).Value = 元素.innerText
        行号 = 行号 + 1
    Next 元素
End Sub

function Web抓取() {
  var url = "https://www.example.com";
  var response = UrlFetchApp.fetch(url);
  var html = response.getContentText();
  var document = XmlService.parse(html);
  
  var elements = document.getRootElement().getChildren("要抓取的元素标签名");
  
  var sheet = SpreadsheetApp.getActiveSheet();
  var row = 1;
  
  for (var i = 0; i < elements.length; i++) {
    var element = elements[i];
    var text = element.getText();
    sheet.getRange(row, 1).setValue(text);
    row++;
  }
}