小编sag*_*gar的帖子

下面是我想通过 VBA 中的 SQL 查询操作的 Excel 表。

请找到我的 VBA 代码。

Sub SQL()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

strSQL = "SELECT [Sr] FROM [Table1$] WHERE [Sr] >= 3 AND [Sr] <= 8;"

rs.Open strSQL, cn

Sheet5.Range("D1").CopyFromRecordset rs

End Sub

我的上述代码出现以下错误。

请指导我如何在VBA中的SQL查询中操作Excel表。

我想使用if条件来执行ClearContents任务。请找到我下面的代码。我写了下面的 2 个代码，但都没有成功。

1. 第一次尝试

   t = 1
   Do While Cells(t, 1) <> ""
       If Cells(t, 1) <> "=" Then
           Cells(t, 1).ClearContents
       End If
       t = t + 1
   Loop
   

   Run Code Online (Sandbox Code Playgroud)

2. 第二次尝试

   t = 1
   Do While Cells(t, 1) <> ""
       If Cells(t, 1) <> Formula Then
           Cells(t, 1).ClearContents
       End If
       t = t + 1
   Loop
   

   Run Code Online (Sandbox Code Playgroud)

基本上，我不想删除包含公式可用的单元格，但我想删除其他数据。

我正面临着chrome中的错误,即"你正在使用不支持的命令行标志--Ignore-Certificate-Errors.稳定性和安全性会受到影响." 对于我的下面的selenium代码.

Public Sub key()
  Dim selenium As New SeleniumWrapper.WebDriver  
  selenium.Start "chrome", "https://google.com/"
selenium.stop
End Sub

我在下面的链接中搜索了相同的错误解决方案.

http://www.abodeqa.com/tag/how-to-remove-you-are-using-an-unsupported-command-line-flag-ignore-certificate-errors-stability-and-security-will-suffer/

请解释我如何将上面链接中提到的答案应用到我的VBA代码中.