Sub Tvoj_ReFreshSQL() Dim xPodm As String xPodm = Range("F2").Text With ActiveWorkbook.Connections("Dotaz z Tvoho SQL").ODBCConnection .BackgroundQuery = True .CommandText = "SELECT title, point, grp01, grp02, region FROM TvojDB.TvojaTabulka" _ & " WHERE (region='" & xPodm & "') ORDER BY grp01, grp02, title" .CommandType = xlCmdSql .Connection = "ODBC;DSN=Tvoj-SQL;" .Refresh End With End Sub
SQL hodnota premennej z excelu