sql >> Base de Datos >  >> RDS >> Mysql

Ejecutar SQL escrito en un cuadro de texto con VBA

Thisworkbook.Sheet1 no es una ruta de objeto válida, intente en su lugar:

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

O simplemente

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

Y asegúrese de que la hoja definitivamente se llame "Hoja1"

Además, necesitas cambiar

rs.Open strSQL, conn, adOpenStatic

a esto:

rs.Open SqlString, conn, adOpenStatic

Y probablemente deberías usar

Dim SqlString as String

al comienzo de la rutina