excel - Excel VBA“findelementbyclass”中的硒不起作用
问题描述
我正在尝试创建翻译代码。我可以使用 xpath 作为目标,但我想使用类方法获取数据。
Private Sub CommandButton1_Click()
Dim Mydoc As New Selenium.WebDriver
Dim TX As String
Dim i As Integer
dolu = WorksheetFunction.CountA(Range("A1:A250"))
Mydoc.Start "chrome"
For i = 1 To dolu Step 1
TX = Range("A" & i).Value
x1 = "/" & TX
On Error Resume Next
Mydoc.Get "https://dictionary.cambridge.org/dictionary/english-turkish" & x1
xs = ""
xt = ""
xu = ""
''------------------------
Set xs = Mydoc.FindElementByClass("def-head ddef_h")
Set xt = Mydoc.FindElementByCss(".def-head ddef_h")
''Set xs = Mydoc.FindElementByXPath("/html/body/div[2]/div/div[1]/div[2]/article/div[2]/div[2]/div[3]/div/div/div[3]/div[1]/div[2]/div/div[3]/div[1]")
''Set xt = Mydoc.FindElementByXPath("/html/body/div[2]/div/div[1]/div[2]/article/div[2]/div[2]/div[3]/div/div/div[3]/div[1]/div[2]/div/div[3]/span")
''Set xu = Mydoc.FindElementByXPath("/html/body/div[2]/div/div[1]/div[2]/article/div[2]/div[2]/div[3]/div/div/div[3]/div[2]/div[2]/div/div[3]/span")
xs = xs.Text
xt = xt.Text
xu = xu.Text
Range("B" & i).Value = xs
Range("C" & i).Value = xt
Range("D" & i).Value = xu
Next
End Sub
解决方案
css 中的复合(多值)类属性需要用“.”连接。IE
".def-head.ddef_h"
推荐阅读
- php - PHP GD 在另一个形状上绘制形状并使其透明
- machine-learning - 如何使用 lightgbm 和 xgboost 框架处理投票分类器中的 'object' dtypes 变量?
- python - 比较两个配对数据列表并删除不符合标准的数据,python
- security - 证书不正确,潜在的攻击?
- cloud - 如何使用 Golang 编写机密/SGX 应用程序?
- django - django_elasticsearch_dsl_drf 在带有空格的文本字段中搜索返回 null
- php - 如何使用php在年份选项中进行选择?
- javascript - 如何从 React 中的另一个对象中查找和排列对象?
- file - 在lua中解析文件的二进制文件
- terraform - 如何使用用户提供的变量访问嵌套地图中的元素?