vba如何调用Access的查询,并显示查询结果

1点击：创建--宏。打开宏编辑器。

2在 *** 作这一栏，从下拉列表中，选择runcode *** 作。

3d出了 *** 作参数对话框，点击函数名称右边的这个省略号。

4打开了表达式生成器，在下方选择函数进行编辑，或者自己输入公式，然后点击确定按钮。

5点击菜单栏上面的保存按钮，在d出的另存为对话框中，输入宏的名称，然后点击确定。

6在宏对象中，找到刚才建立的这个宏运行vba，然后右键单击它，选择运行，vba函数就运行了。

在立即窗口调用join函数把数组合成字符串输出

如：

 join(a,",")

如这个段码放到普通模块中，然后在立即窗口输入  GetString(",",vbcrlf) ，可以显示当前工作表选中的区域。可以把里面的数组a换成参数传递方式，调用它把二维数组转换为字符串输出。

Public Function GetString(sep1 As String, sep2 As String) As String

        Dim r As Range

        Set r = Selection

        Dim a()

        a = r

        Dim i As Integer

        Dim j As Integer

        Dim text As String

        For i = 1 To UBound(a, 1)

            text = text & a(i, 1)

            For j = 2 To UBound(a, 2)

                text = text & sep1 & a(i, j)

            Next

            text = text & sep2

        Next

        GetString = text

End Function

以上就是关于vba如何调用Access的查询,并显示查询结果全部的内容，包括:vba如何调用Access的查询,并显示查询结果、如何在vba调试里面查看一个数组的值、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！