Ругается , ошибка синтаксиса
Могу скинуть код целиком
Код |
---|
Sub Macro1()
Dim st As String
Dim ct As String
Set cn = CreateObject("ADODB.Connection")
Dim rs As New ADODB.Recordset
Dim QT1 As QueryTable
cn.Provider = "SQLOLEDB.1"
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=" + Sheets("Лист4").Range("A2") + ";Data Source=" + Sheets("Лист4").Range("A1") + ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CB901666;Use Encryption for Data=False;Tag with column collation when possible=False"
cn.Open
rs.CursorType = adOpenStatic
rs.LockType = adLockBatchOptimistic
rs.Open "select * from dbo." + Sheets("Лист4").Range("A3") + "", cn
st = "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=tstfinserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CB901666;Use Encryption for Data=False;Tag with column collation when possible=False"
Set QT1 = ActiveWorkbook.Worksheets(2).ListObjects.Add(SourceType:=xlSrcExternal,
Source:=Array(s), LinkSource:=True, _
TableStyleName:=xlGuess, Destination:=Sheets("Лист2").Range("A1")).QueryTable
ct = Sheets("Лист4").Range("A2").Value + ".dbo." + Sheets("Лист4").Range("A3").Value
End Sub
|
Ругается именно с команды Set.
То есть. я ввожу данные о сервере в одну ячейку, в другую БД, а в третью ввожу таблицу. он это считывает. и даже выводит , если вставляю вот этот код :
Код |
---|
Лист2.Range("A2").CopyFromRecordset rs |
Вместо Set то выводится просто данные из таблицы. В данном случае , это не подходит, нужен именно QT. и уже как не пробовал....