Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

标题特定字符的多张excel表导入并根据字段特征(橙字)导入

时 间:2021-02-20 13:31:17
作 者:林森   ID:47085  城市:广州
摘 要:多表根据特定字符导入
ado
字段根据特征导入
excel
正 文:

    Dim cnn As New ADODB.Connection
    Dim MyData$, MyFile, mypath$, n% ‘MyData的定义的标准写法:dim MyData as string; n的定义的标准写法:dim n as integer
    MyData = "D:\HR\HR.accdb"
    On Error Resume Next
    On Error GoTo 0
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & MyData
    mypath = "D:\HR\『招聘』\导出简历\"
   
    Select Case Me.Cb_excel
    Case "Moka"
        MyFile = Dir(mypath & "*详情列表*.xlsx")
        
            If MyFile = "" Then
            MsgBox ("导出文件先")
            
            Else
        
                Do While MyFile <> ""
                    n = n + 1
                    cnn.Execute "insert into Mesa_面试者( 姓名, 性别, 电话, 邮箱, 应聘职位, 期望薪酬, 搜索, " & _
                                                        "招聘渠道, 最近一家公司, 最近一个职位, 工作经验, " & _
                                                        "学历, 学院, 专业) " & _
                                                "select 姓名, 性别, Mid([手机],InStr([手机],' ')+1) as 电话, " & _ ‘不取字段里面原本“+86 ”的内容,只取手机号
                                                        "邮箱, Mid(应聘职位, InStrRev(应聘职位, '》') + 1, InStrRev(应聘职位, '0') - InStrRev(应聘职位, '》') - 1) as 应聘职位, " & _ ‘取“》”之后“0”之前的字段内容
                                                        "期望薪资 as 期望薪酬,  " & _
                                                        "switch(来源='主动搜索',true, 来源='主动投递',false) as 搜索, " & _
                                                        "渠道 as 招聘渠道, 最近公司 as 最近一家公司, 当前职位 as 最近一个职位, 工作经验, " & _
                                                        "最高学历 as 学历, 毕业院校 as 学院, 专业名称 as 专业 " & _
                                                "FROM [EXCEL 12.0 XML;DATABASE=" & mypath & MyFile & "].[Sheet1$]" ‘针对xslx文件的导入
                    MyFile = Dir()
                Loop
            cnn.Close
            Set cnn = Nothing
            MsgBox "excel文件已导入"

            DoCmd.OpenForm ("fenster_面試")
            End If
  
    End Select
    
End Sub

Access软件网QQ交流群 (群号:39785885)       Access源码网店

最新评论: 查看更多评论(2)

2021/2/22 14:50:02林森
On Error Resume Next语句和On Error Goto 0语句指明了当出现"运行时错误"时的处理方式。 当加上On Error Resume Next语句后,如果后面的程序出现"运行时错误"时,会继续运行,不中断。 当加上On Error Goto 0语句后,如果后面的程序出现"运行时错误"时,会显示"出错信息"并停止程序的执行。 Err对象保存了“错误信息” https://blog.csdn.net/erix1991/article/details/16116165

2021/2/21 7:38:49崔宇
On Error Resume Next On Error GoTo 0 这是什么鬼

发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!

用户名:
密 码:
内 容:
 

常见问答:

技术分类:

相关资源:

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助