Excel和visual basic SQL查询在记录更改时删除公式
我对VisualBasic还比较陌生,不太熟悉SQL,但我在网上找到了一段我编辑过的代码,它就像我需要将数据导入Excel工作表一样工作。问题是,当我更改参数以查找不同的记录集时,如果让forumlas查看表中的数据(例如:sheet2 formula查看sheet1 A1),则公式本身会被删除并更改为“#REF!”。我试过美元符号,但没用。我甚至尝试注释掉参数更改后清除表的行。是否有可以设置的查询表选项?或者是否有其他方式显示结果而不是查询表 Visual Basic代码段:Excel和visual basic SQL查询在记录更改时删除公式,sql,vb.net,excel,Sql,Vb.net,Excel,我对VisualBasic还比较陌生,不太熟悉SQL,但我在网上找到了一段我编辑过的代码,它就像我需要将数据导入Excel工作表一样工作。问题是,当我更改参数以查找不同的记录集时,如果让forumlas查看表中的数据(例如:sheet2 formula查看sheet1 A1),则公式本身会被删除并更改为“#REF!”。我试过美元符号,但没用。我甚至尝试注释掉参数更改后清除表的行。是否有可以设置的查询表选项?或者是否有其他方式显示结果而不是查询表 Visual Basic代码段: Sub Para
Sub ParameterQueryExample()
'---creates a ListObject-QueryTable on Sheet1 that uses the value in
' Cell A1 as the ProductID Parameter for an SQL Query
' Once created, the query will refresh upon changes to A1.
Dim sSQL As String
Dim qt As QueryTable
Dim rDest As Range
'--build connection string-must use ODBC to allow parameters
Const sConnect = "ODBC;" & _
"Driver={SQL Server Native Client 10.0};" & _
"Server=Braden-PC;" & _
"Database=CI_APEXALPHA;"
'--build SQL statement
sSQL = "SELECT *" & _
" FROM apexalpha.CI_AAD_SAMPLE" & _
" WHERE SAMPLE_DESCRIPTION = ?;"
'--create ListObject and get QueryTable
Set rDest = Sheets("Sheet1").Range("A2")
'--rDest.CurrentRegion.Clear 'optional- delete existing table
Set qt = rDest.Parent.ListObjects.Add(SourceType:=xlSrcExternal, _
Source:=Array(sConnect), Destination:=rDest).QueryTable
'--add Parameter to QueryTable-use Cell Z1 as parameter
With qt.Parameters.Add("SAMPLE_DESCRIPTION", xlParamTypeVarChar)
.SetParam xlRange, Sheets("Sheet1").Range("A1")
.RefreshOnChange = True
End With
'--populate QueryTable
With qt
.CommandText = sSQL
.CommandType = xlCmdSql
.AdjustColumnWidth = True 'add any other table properties here
.BackgroundQuery = False
'-- .Refresh
End With
Set qt = Nothing
Set rDest = Nothing
End Sub
基本上,新查询表正在销毁公式中的单元格引用。如果有一个公式指向某个单元格,并且删除了该单元格(不仅是内容,而且是整个单元格),则引用将被破坏,并出现错误。您的代码每次运行时都会创建一个新的查询表,以便删除旧的查询表。相反,您可以将查询设置为qt的源,更改参数并使用qt.refresh
如果不知道您的目标和公式,很难判断是否有更好的方法。我能提供其他信息帮助您更好地理解吗?