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群(群号:198465573) |