用excel建立员工数据库

1, 录入登记表(录入与查询双功能, 若作为查询, 可同时调出照片)。

2 员工登记表(相当于数据库, 农历出生日期, 退休日期, 生肖, 农历生日。

3, 星座, 幸运日, 省, 市, 县, 邮编, 区号, 姓名拼音, 出生距离今日天数全部自动生成)。

4, 首页设置了当天生日与本月生日提醒功能。

Sub Macro3()

'

' Macro3 Macro

' 宏由 mis01_kk 编写，时间: 2010-8-10

'

'

With ActiveSheet.QueryTables.Add(Connection:=Array( _

"OLEDBProvider=Microsoft.Jet.OLEDB.4.0Password=""""User ID=AdminData Source=F:\Work\ndy\DELL台式机笔记本报价.xlsMode=Share Deny WriteExtend" _

, _

"ed Properties=""HDR=YES""Jet OLEDB:System database=""""Jet OLEDB:Registry Path=""""Jet OLEDB:Database Password=""""Jet OLEDB:Engine" _

, _

" Type=35Jet OLEDB:Database Locking Mode=0Jet OLEDB:Global Partial Bulk Ops=2Jet OLEDB:Global Bulk Transactions=1Jet OLEDB:Ne" _

, _

"w Database Password=""""Jet OLEDB:Create System Database=FalseJet OLEDB:Encrypt Database=FalseJet OLEDB:Don't Copy Locale on Co" _

, _

"mpact=FalseJet OLEDB:Compact Without Replica Repair=FalseJet OLEDB:SFP=False" _

), Destination:=Range("A1"))

.CommandType = xlCmdTable

.CommandText = Array("'台式机 笔记本 报价$'")

.Name = "DELL台式机笔记本报价"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.SourceDataFile = "F:\Work\ndy\DELL台式机笔记本报价.xls"

.Refresh BackgroundQuery:=False

End With

ActiveWindow.SmallScroll Down:=12

End Sub

不明白的HI我.

---