dim objExcelWorkBook = ""
dim objRet = ""
dim arrayRet = ""
dim A1列长度 = "" //自定义的变量
dim A1行数 = "0"  //自定义的数字变量，起始值0
objExcelWorkBook = Excel.BindBook("1.xlsx")//绑定表格
arrayRet = Excel.ReadColumn(objExcelWorkBook,"Sheet1","A1")  //读取所需列的内容
A1列长度=Len(arrayRet) //读取所需列（A1）的条数，用于终止读取下一个单元格
TracePrint(A1列长度)
Do //循环读取下一个单元格
A1行数=A1行数+1
objRet = Excel.ReadCell(objExcelWorkBook,"Sheet1",[A1行数,1])
TracePrint(objRet)
/*
这里可以接着写你需要的操作代码
*/
Loop While A1行数<A1列长度 //当A1行数的数字大于了A1列长度时停止循环。

可视化界面如下图