Скачать с ютуб Excel VBA Create SQL Query on Worksheet в хорошем качестве

Excel VBA Create SQL Query on Worksheet

This video shows how to setup an SQL Query with VBA Code on an Excel Worksheet. SQL Queries allow you to analyze datasets to answer all sorts of questions for end users. Learn More about Excel VBA & Macros with this Book on Amazon: https://amzn.to/3xnqT6R Get a Microsoft Office 365 Personal Subscription with this Amazon link: https://amzn.to/3aV9GtL DISCLAIMER: As an Amazon Affiliate I get a commission for every purchase via these links. To get a copy of the Workbook used in this video click the link below and search for the File that has the same title as this video. https://theexcelcave.weebly.com/excel... #ExcelVBACreateSQLQuery #ExcelVBACreateQuery The Code used in this video is below: Sub myQuery() Dim connection As New ADODB.connection connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=YES;"";" Dim SQLQuery As String SQLQuery = InputBox("Enter Select Statement") Dim rs As New ADODB.Recordset rs.Open SQLQuery, connection Dim rSht As Worksheet Set rSht = ThisWorkbook.Worksheets("Results") With rSht .Cells.ClearContents For i = 0 To rs.Fields.Count - 1 .Cells(1, i + 1).Value = rs.Fields(i).Name Next i .Range("A2").CopyFromRecordset rs End With connection.Close End Sub