Выбор случайного значения из данных столбца Excel с использованием vbscript НЕ работает - PullRequest
Новая
       40

Выбор случайного значения из данных столбца Excel с использованием vbscript НЕ работает

0 голосов
/ 19 февраля 2020

Вот мой код ниже. Я пытаюсь выбрать случайное значение из одного столбца листа 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)
...