使用vbscript从Excel列数据中选择随机值无效

下面是我的代码。我试图从excel工作表的一列中选择一个随机值。一列中有30行，我需要在执行期间每次选择随机值

    strFullExcelPath="C:\POS_AUTOMATION\POS_Item_Details\POS_Data.xls"
    Sheet1Name="GCNumber"


    Set objAdodbCon = CreateObject("ADODB.Connection")

    objAdodbCon.Provider = "MSDASQL"
    objAdodbCon.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & strFullExcelPath & ";Readonly=True"

    objAdodbCon.Open



    Set objAdodbRecSet = CreateObject("ADODB.Recordset")
    objAdodbRecSet.CursorLocation=3

    strSQLStatement =  "SELECT * from [" & Sheet1Name & "$]"

    objAdodbRecSet.Open strSQLStatement, objAdodbCon


    RowCount = objAdodbRecSet.RecordCount

    Min = 1 : Max = RowCount

    Randomize
    GC_Numbers = Int(((Max - Min) * Rnd) + Min)

我试图使用下面的行来获取列的值。但不是为了得到我想要的。请建议

    objAdodbRecSet.fields(GC_Numbers)

---

请定义“不工作”-你得到了什么？您希望得到什么？我正在尝试从excel工作表中的列中获取一个随机值。我在脚本objAdodbRecSet.fields（GC_编号）的最后一行遇到错误。您遇到了什么错误？