
select 学号,姓名,成绩 from 学生信息表 where 学号=‘12345’
是这样写的。vba里可以调用ADO对象执行SQL语句。
Dim A()A = Selection.Value
通过上述代码,二维数组A()就是所选单元格区域内的数据,数组的两个维度上都以1为下边界的。
注:对于选择多重区域的情部,上述代码仅能取得第一个区域内的数据,如果选择的是多重区域,则要复杂一些,代码如下:
Dim a As Range, b()Set a = Selection
ReDim b(1 To a.Areas.Count)
For i = 1 To a.Areas.Count
b(i) = a.Areas(i).Value
Next i
'注:b(i)是一个数组的数组,引用如下:
'比如:要引用选择的多重区域的第2个区域的第3行第4列的数值:
'那么引用如下:b(2)(3,4)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)