excel訪問access

⑴ 如何在EXCEL中自動讀取ACCESS資料庫中的信息

用access自動獲取excel里的數據的方法就是通過代碼的方式導入。
如果是手動導入比較清楚的話，這個實現起來不難，請參考下面的介紹來實現：
首先，新建一個工程，在工程中引用如下對象ADO對象（用於連接ACCESS資料庫，可用其它方式），添加一個窗體（from1），在窗體上添加如下控制項：
兩個文本框，用來顯示EXCEL文件路徑和ACCESS路徑；
四個扭鈕，兩個用來游覽，另兩個是導入和退出；
兩個通用對話框控制項，用來打開ACCESS和EXCEL文件，一個進度條控制項，用來顯示導入進程。
該實例的導入是將ACCESS資料庫中表的欄位名單獨存放在另外一個表中,導入時按表中所存欄位名的順序進行導入,不是按EXCEL表的順序導入,這樣在實際中是很實用的.
因為好多時候EXCEL表中欄位順序和ACCESS中欄位順序有可能不是一致的.
代碼如下：
Dim v
Option Explicit
Private Sub cmdLoad_Click()
Dim excel_app As Object
Dim excel_sheet As Object
If txtExcelFile.Text = "" Then
MsgBox "請選擇EXCEL表"
Else
Dim new_value As String
Label2.Caption = "正在導入,請稍候..."
Screen.MousePointer = vbHourglass
DoEvents
'' Create the Excel application.
Set excel_app = CreateObject("Excel.Application")
'' Uncomment this line to make Excel visible.
excel_app.Visible = True
'' Open the Excel spreadsheet.
excel_app.Workbooks.open FileName:=txtExcelFile.Text
'' Check for later versions.
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

Dim u ''求EXCEL表中記錄的條數,以便控制進度條
u = 1
Do
If Trim$(excel_sheet.Cells(u, 1)) = "" Then Exit Do
u = u + 1
Loop
bar.Max = u - 1
strsql = "select * from TestValues"
yourRecord.open strSQL, myConn, adOpenDynamic, adLockOptimistic ''打開記錄集
Dim sql As String

sql = "select * from fields order by xue"
myRecord.open sql, myConn, adOpenDynamic, adLockBatchOptimistic ''打開欄位記錄集
myRecord.MoveFirst
'' Get data from the Excel spreadsheet and insert
'' it into the TestValues table.

Dim v ''導入記錄,用了兩層循環
v = 1
Do
If Trim$(excel_sheet.Cells(v, 1)) = "" Then Exit Do ''外層,
yourRecord.AddNew
Dim i
For i = 1 To myRecord.RecordCount
'' Get the next value.
new_value = Trim$(excel_sheet.Cells(v, i))
'' See if it''s blank.
''If Len(new_value) = 0 Then Exit Do
'' Insert the value into the database.
Dim bb As String
bb = myRecord("name")
yourRecord(bb) = new_value
myRecord.MoveNext
Next i
bar.Value = v
v = v + 1
myRecord.MoveFirst
Loop
yourRecord.Update

'' Comment the rest of the lines to keep
'' Excel running so you can see it.
'' Close the workbook without saving.
excel_app.ActiveWorkbook.Close False
'' Close Excel.
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
myRecord.Close
yourRecord.Close
Set myRecord = Nothing
Set yourRecord = Nothing
Label2.Caption = "導入完畢"
Screen.MousePointer = vbDefault
MsgBox "共導入" & Format$(v - 1) & "條記錄"

End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click(Index As Integer)
''尋找ACCESS資料庫
CommonDialog1.Filter = "ACCESS 文件(*.mdb)|*.mdb"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
txtAccessFile.Text = CommonDialog1.FileName
End Sub
Private Sub Command3_Click()
''尋找excel資料庫
CommonDialog2.Filter = "excel 文件(*.xls)|*.xls"
CommonDialog2.CancelError = True
CommonDialog2.ShowOpen
txtExcelFile.Text = CommonDialog2.FileName
End Sub

Private Sub Form_Load()
Call Mole1.lianjie
txtAccessFile.Text = datapath
End Sub
模塊（mole1）中的代碼如下：
Public myConn As New ADODB.Connection ''定義連接字元串
Public myRecord As New ADODB.Recordset ''定義記錄集(欄位)
Public yourRecord As New ADODB.Recordset ''定義記錄集(數據)
Public cntoad As Boolean ''是否正常連接
Public ml ''姓名欄位所在列
Public strSQL ''查詢字元串
Public MyDatabase As Database ''定義資料庫名
Public MyTable As TableDef, MyField As Field ''定義表名和欄位名
Public xuehao ''讀取欄位序號
Public goshiRecord As New ADODB.Recordset ''定義記錄集(公式)
Public hxfyn As Boolean
Public hxfbds '' 公式或條件
Public an ''要統計的欄位
Public islinshi As Boolean ''是否為臨時公式
Public leiRecord As New ADODB.Recordset ''定義記錄集(工資類別)
Public datapath As String ''資料庫路徑及名
Public table As String ''工資表名
Public lei As String '' 工資類別
Public Sub lianjie() ''打開資料庫
On Error Resume Next
myConn.Close
Dim mySQL As String
''設定連接字元串
mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
mySQL = mySQL + "Data Source=" & datapath
myConn.ConnectionString = mySQL ''設定連接
myConn.open ''打開連接
myRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
myRecord.CursorLocation = adUseClient
goshiRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
goshiRecord.CursorLocation = adUseClient
yourRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
yourRecord.CursorLocation = adUseClient
End Sub

⑵ 如何用excel打開access資料庫

引用 access對象庫。打開ACCESS文件進行操作
或用 ado對象直接鏈接ACCESS文件，使用查詢語句操作其中數據

⑶ EXCEL如何調用ACCESS數據

找到自己需要做改變的Excel和Access

1
為了避免自己以後的，所以第一個步驟看似無關重要，但是卻缺一不可。確保Excel中的數據導入資料庫不要出錯，不然一切白費。

END
新建資料庫，開始執行操作

在資料庫上方有一個外部數據，點擊外部數據存在一個「導入Excel表格功能」，點擊該功能開始執行導入操作。

找到自己的Excel，明確路徑，就可以開始了。點擊確定進入下一個步驟

在開始導入的時候，根據自己的需要勾選第一行是否包含標題。
勾選：代表Excel中的第一欄就是資料庫中的欄位名
不勾選：代表Excel所有的數據會成為資料庫中的數據
我以勾選狀態演示

在下一個頁面，可以根據自己的需要修改「欄位名稱」和「數據類型」。

進入下一頁面，可以修改資料庫中的主鍵，可以用Access的默認主鍵，也可以自定義主鍵，也可以不要主鍵。

6
完成主鍵的設置過後，就完成了數據的導入，但是還沒有完，自己要為導入的數據命名。最後就完成了將Excel中的數據導入到Access資料庫中的操作。

⑷ 如何把EXCEL表導入到access資料庫

材料/工具：Excel2003

1、首先啟動access，執行新建-空資料庫命令，輸入名稱保存在一個合適的位置上。

⑸ 怎樣把EXCEL表導入access資料庫

1、首先准備好一個要導入Access的Excel文件：

(5)excel訪問access擴展閱讀

Access的用途體現在兩個方面：

一、用來進行數據分析： access有強大的數據處理、統計分析能力，利用access的查詢功能，可以方便地進行各類匯總、平均等統計。並可靈活設置統計的條件。

比如在統計分析上萬條記錄、十幾萬條記錄及以上的數據時速度快且操作方便，這一點是Excel無法與之相比的。 這一點體現在：會用access，提高了工作效率和工作能力。

二、用來開發軟體： access用來開發軟體，比如生產管理、銷售管理、庫存管理等各類企業管理軟體，其最大的優點是：易學！非計算機專業的人員，也能學會。

低成本地滿足了那些從事企業管理工作的人員的管理需要，通過軟體來規范同事、下屬的行為，推行其管理思想。（VB、.net、 C語言等開發工具對於非計算機專業人員來說太難了，而access則很容易）。

這一點體現在：實現了管理人員（非計算機專業畢業）開發出軟體的「夢想」，從而轉型為「懂管理+會編程」的復合型人才。

另外，在開發一些小型網站WEB應用程序時，用來存儲數據。例如ASP+Access。這些應用程序都利用ASP技術在InternetInformation Services運行。比較復雜的WEB應用程序則使用PHP/MySQL或者ASP/Microsoft SQL Server。

ACCESS的用途更多，體現在很多方面：

表格模板。 只需鍵入需要跟蹤的內容，Access 便會使用表格模板提供能夠完成相關任務的應用程序。

Access 可處理欄位、關系和規則的復雜計算，以便您能夠集中精力處理項目。 您將擁有一個全新的應用程序，其中包含能夠立即啟動並運行的自然 UI。

創建和運行舊資料庫。 盡情享用對您的現有桌面資料庫 (ACCDB/MDB) 的支持。

⑹ 怎樣把excel數據導入access

導入方法如下：
1、打開access軟體，新建空白桌面資料庫。
2、在【外部數據】面板中點擊EXCEL。
3、在【選擇數據源】面板的【文件名】中選擇目標文件，並在下方選擇【將數據源導入當前資料庫的新表中】，確定。
4、接下來選擇【現實工作表】，顯示整個工作表，然後下一步。
5、選擇【第一行包含標題】，這樣EXCEL表格的第一行成了標題行，相當於篩選欄，下一步。
6、可以選中某列，設置該列的名稱，下一步。
7、可以選擇自己的主鍵，這里選擇手機品牌為主鍵，下一步。
8、下面一直下一步，完成後可以看到EXCEL插入access中。

⑺ 如何將Excel表鏈接到Access中實現所需功能

以excel2007為例：
（1）打開Access，點擊新建【空白資料庫】。
（2）命名好文件名，選擇好儲存位置後，點擊【創建】
（3）創建了以後，點擊【外部數據——導入Excel】
（4）選擇【通過創建鏈接表來鏈接到數據源】，再點擊【瀏覽】，找到要導入的Excel表。
（5）找到Excel表後，點擊【打開】，點擊【確定】
（6）顯示出工作表的內容，點擊【下一步】----勾選【第一行包含列標題】-----點擊【下一步】
完成以後，Access上多了一個數據表，雙擊打開後，這個表上的數據都不能更改，這就是鏈接方式的優點之一。注意，一定要在Access中關閉這個表，Excel才能打開修改。

⑻ 如何把excel數據讀取到access資料庫中

右鍵點擊文件，打開方式，選擇access,然後保存為access格式