本文介绍了如何通过VBA编写一个名为SqlSelectExl的函数，该函数能够快速从Excel或Access中读取指定范围的数据，并将其返回为二维数组。在示例代码中，展示了一个Sub过程调用该函数，遍历并打印数组内容，展示了从'c:/my.xlsx'文件的Sheet1$A1:D中获取数据的过程。如果数据获取失败，函数将返回False并显示错误消息。
我们在用VBA获取excel或者ACCESS里的文档内容时，经常需要返回一个数组，直接获取所有的数据内容，选择返回一个数组是最快捷的方法。我经常想写一个函数来直接返回 否则每次都要写这个获取的语句。函数如下：
我们在引用这个函数时：
结果示例如下：
Sub 示例()
Dim a As Boolean, vdata() As Variant
sPath$ = "c:/my.xlsx"
a = SqlSelectExl(sPath, "Sheet1$A1:D", vdata) '获取路径下表Sheet1的A到D列
If a = False Then
MsgBox "数据连接错误": Exit Sub
End If
For i = 1 To UBound(vdata)
For j = 1 To UBound(vdata, 2)
Debug.Print vdata(i, j)
Next j
Next i
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
