sql >> Databasteknik > >> RDS >> Mysql

Kör SQL skriven i en textruta med VBA

Thisworkbook.Sheet1 är inte en giltig objektsökväg, försök istället:

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

Eller bara

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

Och se till att arket definitivt heter "Sheet1"

Du måste också ändra

rs.Open strSQL, conn, adOpenStatic

till detta:

rs.Open SqlString, conn, adOpenStatic

Och du borde förmodligen använda

Dim SqlString as String

i början av rutinen