Thisworkbook.Sheet1 मान्य ऑब्जेक्ट पथ नहीं है, इसके बजाय प्रयास करें:
SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
या बस
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
और सुनिश्चित करें कि शीट का नाम निश्चित रूप से "शीट1" है
साथ ही, आपको बदलने की जरूरत है
rs.Open strSQL, conn, adOpenStatic
इसके लिए:
rs.Open SqlString, conn, adOpenStatic
और आपको शायद उपयोग करना चाहिए
Dim SqlString as String
दिनचर्या की शुरुआत में
