Spusťte SQL napsaný v textovém poli pomocí VBA

Thisworkbook.Sheet1 není platná cesta k objektu, zkuste místo toho:

SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text

Nebo jen

SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text

A ujistěte se, že list má určitě název "Sheet1"

Také je třeba změnit

rs.Open strSQL, conn, adOpenStatic

na toto:

rs.Open SqlString, conn, adOpenStatic

A pravděpodobně byste měli použít

Dim SqlString as String

na začátku rutiny