我正在使用react-bootstrap来组成一个列表组,下面是我的渲染代码
Option Explicit
'<a href="somelink.iata.org/somelink14/acdm/…; title="ADM & ACM Query" target="principal">- ADM & ACM Query</a>
Public Sub Test()
'Tools > references > add Microsoft XML and HTML Object library
Dim http As New XMLHTTP60 ' this would be as per your version of Excel
Dim html As New HTMLDocument
With http
.Open "GET", "yourURL", False
.send
html.body.innerHTML = .responseText
End With
Dim posts As MSHTML.IHTMLElementCollection
Dim post As MSHTML.IHTMLElement
Set posts = html.getElementsByTagName("a")
For Each post In posts
If InStr(1, post.innerText, "somelink.iata.org/somelink14/acdm") > 0 Then
post.Click
End If
Next post
End Sub
答案 0 :(得分:1)
您可能已在组件中导入了库,但仍需要自己导入css。
https://react-bootstrap.github.io/getting-started/introduction
您可以在index.html中导入它 https://react-bootstrap.github.io/getting-started/introduction
或者您可以在src / index.js中导入它,让webpack处理组合您的CSS