如何用access自動(dòng)獲取excel里面的數(shù)據(jù)？用access自動(dòng)獲取excel中數(shù)據(jù)的方法是通過(guò)代碼導(dǎo)入。如果手動(dòng)導(dǎo)入清楚，這個(gè)實(shí)現(xiàn)并不難。請(qǐng)參考下面的介紹來(lái)實(shí)現(xiàn):首先新建一個(gè)項(xiàng)目，通過(guò)引用項(xiàng)目中下

如何用access自動(dòng)獲取excel里面的數(shù)據(jù)？

用access自動(dòng)獲取excel中數(shù)據(jù)的方法是通過(guò)代碼導(dǎo)入。如果手動(dòng)導(dǎo)入清楚，這個(gè)實(shí)現(xiàn)并不難。請(qǐng)參考下面的介紹來(lái)實(shí)現(xiàn):首先新建一個(gè)項(xiàng)目，通過(guò)引用項(xiàng)目中下面的object ADO對(duì)象(用于以其他連接ACCESS數(shù)據(jù)庫(kù))來(lái)添加一個(gè)表單(from1)，并在表單上添加以下控件:兩個(gè)文本框，分別顯示EXCEL文件路徑和ACCESS路徑；四個(gè)按鈕，兩個(gè)觀光，另外兩個(gè)進(jìn)出口；兩個(gè)常規(guī)對(duì)話框控件用于打開(kāi)ACCESS和EXCEL文件，一個(gè)進(jìn)度條控件用于顯示導(dǎo)入過(guò)程。本例的導(dǎo)入是將ACCESS數(shù)據(jù)庫(kù)中的表的字段名單獨(dú)存儲(chǔ)在另一個(gè)表中，并按照表中存儲(chǔ)字段名的順序?qū)?，而不是按照EXCEL表的順序?qū)?。?qǐng)注意。這在實(shí)踐中非常實(shí)用，因?yàn)楹芏嗲闆r下，EXCEL表中的字段順序可能與ACCESS中的字段順序不一致。代碼如下:dim v選項(xiàng)顯式私有sub cmd load _ click()。DimEXCEL _ appasobjectdimexcel _ sheet作為objectif txtexelfile。textthenmsgbox請(qǐng)選擇要導(dǎo)入的excel表格ElseDim new_value。請(qǐng)稍候...創(chuàng)建excel應(yīng)用程序。set excel _ appcreateobject()取消對(duì)此行的注釋以使excel可見(jiàn)。excel_ True打開(kāi)excel表格。exc:txtexcelfile . text檢查更新版本. ifval(EXCEL _)gt8然后設(shè)置excel _ sheetexcel _ else設(shè)置excel _ sheetexcel _ append if dim u查找EXCEL表中的記錄數(shù)。從而控制進(jìn)度條u1do if trim $ (excel _ sheet。cells (u，1))然后從tes退出do uu1loop u-1strsqlselect *。Tvales strsqls，myconn，adopen dynamic，adlockoptimal打開(kāi)記錄集dim SQL as string SQL select * from fields order by xuesql，myconn，adopen dynamic，AdLockBatchOptimistic打開(kāi)字段記錄集從excel電子表格中獲取數(shù)據(jù)并將其插入測(cè)試值表。dim v導(dǎo)入記錄。兩層循環(huán)v1do if trim $ (EXCEL _ sheet。cells (v，1))然后退出使用外層。如果在Excel表中讀取一個(gè)空行，結(jié)束dim I for I 1以獲取下一個(gè)值。new _ valuetrim $ (excel _ sheet。cells (v，I))查看它是否為空白。如果Len(new_value)為0，那么Exit會(huì)將該值插入數(shù)據(jù)庫(kù)。dim bb As String bb my record(name)yourRecord(bb)new _ value Next I v v v 1循環(huán)your record。更新其余行的注釋?zhuān)笶xcel保持運(yùn)行，以便您可以看到它。關(guān)閉工作簿而不保存ng . excel _ false close excel . excel _ app . quit set excel _ sheet nothing set excel _ app nothing my record nothing set您的記錄已導(dǎo)入，vbDefault MsgBox共導(dǎo)入。Format$(v-1) amp記錄end if end sub private子命令1 _ click () unload meet sub private子命令2 _ click(索引為整數(shù))查找ACCESS數(shù)據(jù)庫(kù)AC。CESS文件(*。MDB) | * subprivate子命令3 _ click()查找excel數(shù)據(jù)庫(kù)excel文件(*。xls)|*子私有子窗體_Load()。調(diào)用數(shù)據(jù)路徑結(jié)束子模塊(module1)中的代碼如下:Public myConn As New定義連接字符串Public myRecord As New定義記錄集(字段)Public yourRecord As New定義記錄集(數(shù)據(jù))。Public cntoad As Boolean是否正常連接到Public ml name字段所在的列？Public strSQL查詢字符串Public MyDatabase As Database將數(shù)據(jù)庫(kù)名Public MyTable定義為T(mén)ableDef。MyField As Field定義表名和字段名Public xuehao讀取字段序列號(hào)Public goshiRecord As New定義記錄集(公式)。Public hxfyn As Boolean Public hxfbds公式或條件要計(jì)算的Public duan字段是否Public islinshi As Boolean將臨時(shí)公式Public leiRecord的記錄集(薪金類(lèi)別)定義為New。Public data Path As String Database Path and Name Public Table As String Salary Table Name Public lei As String Salary Category Public Sub()On Error Resume mySQL As String set Connection String mySQL security info false mySQL mySQL data source map data Path mySQL set Connection Open Connection my conn set Connection object of RecordSeet As co . Connection my conn將Recordeet的連接對(duì)象設(shè)置為adUseClient myConn，將Recordeet的連接對(duì)象設(shè)置為Connection adUseCli

如何用access建立公司員工數(shù)據(jù)庫(kù)？

用access建立公司員工數(shù)據(jù)庫(kù)的方法如下:

1.打開(kāi)access并創(chuàng)建新的數(shù)據(jù)庫(kù)；2.在新數(shù)據(jù)庫(kù)中創(chuàng)建。員工信息表，可以設(shè)置姓名、性別、出生日期、職務(wù)、級(jí)別等基本信息。

3.根據(jù)需要?jiǎng)?chuàng)建其他信息表，如檔案表、工資表等，記錄員工的一些相關(guān)信息。4.將表和其他元素保存在數(shù)據(jù)庫(kù)中。