Добрый день, на листе 1 есть произвольная таблица
На лист2 выводится результат.
Как в этом коде вывести запрос в immediate window?
[vba]Код
Sub SQLCopy()
Dim MyConnection As ADODB.Connection
Dim MyRecord As ADODB.Recordset
Dim strSQL As Variant
Set MyConnection = New ADODB.Connection
Set MyRecord = New ADODB.Recordset
With MyConnection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=Excel 8.0;"
.Open
End With
strSQL = "SELECT Петя FROM [Лист1$] "
MyRecord.Open strSQL, MyConnection
'Dedug.Print MyRecord.GetString ' не могу сообразить, как тут прописать
'Dedug.Print strSQL
Sheets("Лист2").Cells(1, 1).CopyFromRecordset MyRecord
MyRecord.Close
MyConnection.Close
End Sub
[/vba]