标题特定字符的多张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交流群 (群号:54525238) 　　　　　　Access源码网店