estrae informazione query

Attribute VB_Name = "estrae_informazione_query"

'

Option Explicit

'

' Vba - Excel

' Estrae da una query i riferimenti

' alla connessione e alla stringa sql.

'

'

Sub EstraeInformazioniDaQuery()

'

' riferiemto alla cartella attiva, al primo foglio e alla prima query.

' ThisWorkbook.Worksheets(1).QueryTables(1)

'

Dim contenuto As String

'

contenuto = ""

'

' riferimento al foglio attivo e alla prima Query

'

With ThisWorkbook.ActiveSheet.QueryTables(1)

contenuto = contenuto & "connessione: " & .Connection & vbCrLf

contenuto = contenuto & "stringa sql: " & .CommandText & vbCrLf

MsgBox contenuto

Sheets.Add

ActiveSheet.Range("B2") = "connessione:"

ActiveSheet.Range("B3") = "stringa sql:"

ActiveSheet.Range("C2") = .Connection

ActiveSheet.Range("C3") = .CommandText



End With

'

End Sub