【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《工作日志VBA代码程序》，欢迎阅读！
Option Explicit
Dim myAccess As Object
'回调函数
Sub macro(control As IRibbonControl)
Select Case control.ID
Case "Insert"
Call Insert
Case "Serch"
Call search
End Select
End Sub
Public Sub Insert()
End Sub
Public Sub search()
人力资源日志.Show
End Sub
----------------------------------
Option Explicit
Private Data As New 数据库
Property Get Excel数据库()
Excel数据库 = "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name
End Property
Property Get Access数据库()
' Access数据库 = "provider=microsoft.ace.oledb.12.0;data source=" & Data.Mypath & "人力资源工作日志.accdb;Jet OLEDB:Database Password=" & "245437"
Access数据库 = "provider=microsoft.ace.oledb.12.0;data source=" & Data.Mypath & "人力资源工作日志.accdb"
'-----------------------------------------------------------------
'*.accdb: ConnectionString = "Provider=Microsoft.ACE.OLEDB.15.0;" & _
"Data Source=G:\DataBase\1.accdb;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=wf"
'*.mdb: ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=G:\DataBase\1.mdb;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=wf"
'----------------------------------------------------------------------
'ConnectionString = "Provider=Microsoft.ACE.OLEDB.15.0;" & _
' "data source=" & Data.Mypath & "人力资源工作日志.accdb;" & _
' "Persist Security Info=False;" & _
' "Jet OLEDB:Database Password=245437"
End Property
Property Get Mypath()
Mypath = "J:\程序编写\工作日志程序\"
' Mypath = "\\sldc-file\人力资源部\"
' 'mypath="\\172.17.1.6\人力资源部\"
End Property
'-------------------------测试导入不同数据库------------------------------
'Property Get Mypath()
' If 数据库路径 = 共享文件夹 Then
' Mypath = "\\sldc-file\人力资源部\" 'Mypath="\\172.29.1.6\人力资源部"
' ElseIf 数据库路径 = 优盘 Then
' Mypath = "K:\工作日志"
' End If
'End Property
'-------------------------测试导入不同数据库------------------------------
本文来源：https://www.wddqxz.cn/067b694d541252d380eb6294dd88d0d233d43ceb.html
2023-03-21
