使用单个按钮刷新 sql 连接文件

Question

我正在尝试使用 vba 中的单个按钮记录宏来刷新 sql 连接文件，但出现错误。点击我已分配宏的刷新按钮后，它会显示

运行时错误 91 - 您尝试使用尚未引用有效对象的对象变量。

Sub RefreshCRS610()
'
' RefreshCRS610 Macro
'

'
    With Selection.ListObject.QueryTable
        .Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Password=FDReport;Persist Security Info=True;User ID=FDReport;Initial Catalog=M6FDBGRP;Data Source=mlirvcb00" _
        , _
        "1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FXV10084;Use Encryption for Data=False;Tag w" _
        , "ith column collation when possible=False")
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT DISTINCT OKCONO As 'Company Number', OKCUNO As 'Customer Number', OKSTAT As 'Status', OKRESP As 'Branch Resp" _
        , "onsible' FROM M6FDBGRP.MPXFDTA.OCUSMA")
        .Refresh BackgroundQuery:=False
    End With
End Sub

我试图自动刷新sql连接表，而不需要一次又一次点击右键->编辑查询->表->好的->输入pwd。尝试一键刷新 azure sql 数据库表。

Answer 1

运行时错误 91 - 您尝试使用尚未引用有效对象的对象变量。

尝试从

Selection

或

Application

实例获取有效的

ActiveWorksheet

对象实例。