小编PKa*_*ona的帖子

我正在尝试编写将从Excel读取值的代码,在基于Web的内部系统中查找并将结果存储回Excel中.它没有问题地读取Excel,打开Internet Explorer没有问题,但是当我尝试引用已打开的内容时,我得到了上述错误.行"ie.Navigate url"有效,但下一行"Set DOC = ie.Document"会生成错误.关于是什么导致这个的任何想法？这是我的代码:

Public Sub getClient()
  Dim xOpen As Boolean
  xOpen = False
  Dim row As Long

  Dim xL As Excel.Application
  Set xL = New Excel.Application
  xL.Visible = False
  Dim wb As Excel.Workbook
  Dim sh As Excel.Worksheet

  'Change the name as needed, out put in some facility to input it or 
  'process multiples...
  Dim filename As String
  filename = "auditLookup.xlsx"
  Set wb = xL.Workbooks.Open(getPath("Audit") + filename)
  xOpen = True
  Set sh = wb.Sheets(1)

  Dim ie As Variant …

我用 Bing 和 Google 进行的搜索都没有结果，我想可能是因为我的 VS (2019) 版本太新了。正如标题中提到的，我正在尝试创建到 SQL Server DB 的 ADODB 连接。过去，我所需要做的就是添加对“Microsoft ActiveX 数据对象”库的引用，然后添加如下代码：

Dim cnn As ADODB.Connection
cnn = New ADODB.Connection
cnn.ConnectionString = "connection string"

在 VS 2019 中，当我执行“添加引用”时，我没有找到列出的任何 ActiveX 数据对象库。有人有机会在 VS 2019 中做到这一点吗？