Здравствуйте!
Прошу помощи! В VBA новичок.
Подскажите как дописать макрос так, чтобы он брал запросы/данные из диапазона Лист1 A1:E10 обрабатывал и вставлял полученные данные в диапазон Лист2 A1:E10.
На данный момент получилось брать сам sql запрос из Лист1 A1, далее выполнять его в Oracle и записывать его в Лист2 A1.
Но дальше продвинуться не получается.
Заранее благодарен!
Прошу помощи! В VBA новичок.
Подскажите как дописать макрос так, чтобы он брал запросы/данные из диапазона Лист1 A1:E10 обрабатывал и вставлял полученные данные в диапазон Лист2 A1:E10.
На данный момент получилось брать сам sql запрос из Лист1 A1, далее выполнять его в Oracle и записывать его в Лист2 A1.
Но дальше продвинуться не получается.
Заранее благодарен!
| Код |
|---|
Sub sbADOExample_T2()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
Dim rnZap As Range 'range
DBPath = ThisWorkbook.FullName
sconnect = "Provider=OraOLEDB.Oracle;Data Source=****;User ID=****;Password=****;"
rnZap = Worksheets("Лист1").Range("A1")
sSQLSting = rnZap
mrs.Open sSQLSting, Conn
Лист2.Range("A1").CopyFromRecordset mrs
mrs.Close
Conn.Close
End Sub
|
