自定义导入，自动匹配字段信息

码生　发表于：2018-07-12 08:31:48 　

就是想实现上图中，我先选择目标数据表后，下方字段自动显示，原系统已经有该功能。想实现的是，选择文件地址及分表名称后，不是要我在excel字段来源列选择，而是希望选择分表后能自动和前面的数据库字段做模糊比对，部分相同或者全部相同就自动显示excel列名。详见附件

点击下载此附件

Top

HuangDuDu 发表于：2018-07-12 09:13:35

【access通用工具源码】通用Excel数据导入模块[Access软件网] http://www.accessoft.com/article-show.asp?id=5473

【Access示例】两个字符串之间的相似性分析/两个字符串之间的比对[Access软件网] http://www.accessoft.com/article-show.asp?id=17316

参考2篇文章得出的修改方式自己看下随自己需求优化

点击下载此附件

Top

金宇发表于：2018-07-13 16:58:17

在你Excel工作表更新后事件最后面增加以下代码

    Set rs = CurrentDb.OpenRecordset("usys表字段存储表")
    Do While Not rs.EOF
    rs.Edit
        If InStr(str, rs!目标字段名) > 0 Then
            rs!选否 = True
            rs!Excel字段来源 = rs!目标字段名
            rs.Update
        End If
    rs.MoveNext
    Loop
    rs.Close
    Me.子窗体.Requery

Top

帕特泵发表于：2019-03-15 08:55:44

我也学习一下access

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

自定义导入，自动匹配字段信息