请教，在 VBA ADO中 如何 使用ACCESS的自定义函数

zhangzhang

在 ACCESS学生成绩管理.accdb中，有表学生综合成绩表，及自定义函数 TheLevel。在ACCESS中 综合评定查询成功，将分数改为 ＡＢＣＤＥ。在ＥＸＣＥｌ　ＶＢＡ中，请教如何在ＡＤＯ中　直接　调用ＡＣＣＥＳＳ自定义函数。

SELECT 学号ID, 姓名, TheLevel([综合成绩]) AS 综合评定
FROM 学生综合成绩表;　　　（在ＡＣＣＥＳＳ成立）

jiangxiaoyun

用自身的函数就能够判断了，自定义函数没用过，想来貌似不可以。

xd3210

EXCEL中无法调用ACCESS中的自定义函数，需要重写SQL语句
Public Sub 学生综合成绩()

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strCnn As String
Dim MyPath As String
Dim MyTable As String
Dim SQL As String
Dim Rng As Range

Application.ScreenUpdating = False

Range("A1").CurrentRegion.Offset(1).ClearContents

Set Cnn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")

strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
MyPath = ThisWorkbook.Path & "\学生成绩管理.accdb"

Cnn.Open strCnn & MyPath

SQL = "SELECT 学号ID,姓名,iif(综合成绩>=90,'A',IIF(综合成绩>=80,'B',iif(综合成绩>=70,'C',iif(综合成绩>=60,'D','E')))) as 等级 FROM 学生综合成绩表"

Rst.Open SQL, Cnn, adOpenDynamic, adLockOptimistic
    Range("a1").CurrentRegion.Offset(1, 0).Clear
    Range("A2").CopyFromRecordset Rst

Set Cnn = Nothing
Set Rst = Nothing

Application.ScreenUpdating = True

End Sub

zhangzhang

xd3210 发表于 2019-2-19 15:33
EXCEL中无法调用ACCESS中的自定义函数，需要重写SQL语句
Public Sub 学生综合成绩()

谢谢，主要是想 探讨一下，ADO 调用 自定义函数。有时在ACCESS 中 自定义函数 还是比较好用的。

renahu

ADO没戏，但可以建立access对象来调用来建立新的查询表，再用ADO打开拷贝到excel表中，有点绕，不知道如何用access对象直接操作表，像ADO的记录集一样直接拷贝到excel表中？

qsxz

我也遇上同样问题，浏览好一遍，都没找到答案，只查到一句话：用类模块，把access函数加到vba类模块可以实现，但没有具体案例。

opiona

Excel的ADO无法调用Access内的自定义函数
自定义函数只能在Access内部查询时使用

我的思路
在Access写好自定义函数
在access内, 利用此函数 创建一个视图
在Excel用ADO直接查询此视图