怎樣把excel導入access

⑴ 如何把excel文件和access數據互相導入

var ExcelSheet;
ExcelApp = new ActiveXObject("Excel.Application");
ExcelSheet = new ActiveXObject("Excel.Sheet");
本代碼啟動創建對象的應用程序（在這種情況下，Microsoft Excel 工作表）。一旦對象被創建，就可以用定義的對象變數在代碼中引用它。在下面的例子中，通過對象變數 ExcelSheet 訪問新對象的屬性和方法和其他 Excel 對象，包括 Application 對象和 ActiveSheet.Cells 集合。

// 使 Excel 通過 Application 對象可見。
ExcelSheet.Application.Visible = true;
// 將一些文本放置到表格的第一格中。
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";
// 保存表格。
ExcelSheet.SaveAs("C:\\TEST.XLS");
// 用 Application 對象用 Quit 方法關閉 Excel。
ExcelSheet.Application.Quit();

作一個循環，將從excel讀出的數據同步寫入access表

⑵ 如何將Excel導入Access已有的表中呢

把Excel做的表直接導入到Access上使用，打開Access後,點文件——獲取外部數據——導入後進入存放Excel表格的文件夾(在導入的時候，看文件類型，選擇所有文件).

⑶ 如何把多個excel文件批量導入到access

1.在Access中創建對Excel工作簿的鏈接：在Access中選擇「外部數據——導入——Excel」。

2.在「獲取外部數據」對話框中選擇「通過創建鏈接表來鏈接到數據源」。
必須為每個Excel工作簿重復該過程直到將它們都鏈接到資料庫。結果如下圖所示。

3.在SQL視圖中開始新的查詢，單擊「創建——其他——查詢設計」。

4.選擇「查詢工具-設計」中的「SQL視圖」

5.在SQL視圖中，為所有鏈接的Excel表輸入Select語句，在每個Select語句間使用Union操作符，在SQL視圖中輸入選擇查詢語句。

6.運行查詢後，結果將是包含從所有鏈接的文件中獲取並合並後的數據。
只要鏈接的Excel文件在相同的位置，每次打開資料庫時Access將自動刷新鏈接以獲取最新數據。這意味著只需設置一次，然後在每次需要重新組合Excel文件時運行聯合查詢。
然而，默認情況下，UNION操作符會移除數據中的任何重復行。如果知道數據中有重復行，並且想保留它們，那麼需要使用UNION ALL，以允許傳遞重復行。

⑷ 怎樣把Excel中的數據導入到Access中

Excel數據導入到Access、Sql Server中示例代碼
將Excel中的數據導入到Access中，前提是在Access中的表已經建好。

dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"

sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend

conn.close
set conn = nothing
conn2.close
set conn2 = nothing

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function

導入到Sql Server資料庫中時，如果Excel文件和資料庫不在同一台伺服器上時，請參考上面的代碼。在同一機器上可以參考下面代碼（不需要先把表建表，程序會自己動建表，用Excel中的第一行數據做為表的欄位名）：

dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "
conn.execute(sql)

conn.close
set conn = nothing

⑸ 怎樣將Excel數據導入Access

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

知識點拓展-什麼叫做主鍵：

主關鍵字(primary key)是表中的一個或多個欄位，它的值用於唯一地標識表中的某一條記錄。在兩個表的關系中，主關鍵字用來在一個表中引用來自於另一個表中的特定記錄。主關鍵字是一種唯一關鍵字，表定義的一部分。一個表的主鍵可以由多個關鍵字共同組成，並且主關鍵字的列不能包含空值。主關鍵字是可選的，並且可在 CREATE TABLE 或 ALTER TABLE 語句中定義。

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

1、首先打開Access資料庫，設計一個數據表

⑺ 怎樣把excel數據導入access

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

⑻ 如何將excel表導入到access

在access --文件--導入，選擇 要導入的文件

⑼ 如何將excel里的數據批量導入ACCESS

三種VBA:
方法一：在eccel VBA編輯器編寫代碼，使用FOR循環導入：
Sub 利用Excel的VBA將數據寫入Access()
'定義ADODB 連接Access資料庫
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim strCon As String
Dim strFileName As String '資料庫文件名
strFileName = InputBox("請輸入文件路徑及文件名：", "Excel傳遞數據至Access", "E:\ExcelTest\Staff.mdb")
'連接字元串，我這里是Access2010,所提供者參數為：Provider=Microsoft.ACE.OLEDB.12.0;
'如果此參數不能使用，根據自己的電腦修改這個字元串
'至於連接至的資料庫名，根據自己的電腦修改，或用一個對話框或其他方式將此值傳遞進程序
strCon = "provider=Microsoft.jet.OLEDB.4.0;" _
& "Data Source=" & strFileName & ";"
Cnn.Open strCon
Rs.ActiveConnection = Cnn
Rs.LockType = adLockOptimistic
Rs.Open "Employee" '假設表為Employee
'定義Excel表中的數據區域以寫入Access
Dim Sht As Worksheet
Dim Rn As Long
Dim Cn As Long
Set Sht = ThisWorkbook.Sheets("Sheet1")
'假設將 Sheet1 表的 2-6行的1、2、3列寫入Access表
For Rn = 2 To 6
Rs.AddNew
Rs!num = Sht.Cells(Rn, 1) 』num,name,department是資料庫中指定表的欄位
Rs!Name = Sht.Cells(Rn, 2)
Rs!department = Sht.Cells(Rn, 3)
Rs.Update
Next Rn
MsgBox "完成!"
Rs.Close
Cnn.Close
Set Rs = Nothing
Set Cnn = Nothing
Set Sht = Nothing
End sub

⑽ 如何將Excel工作表導入Access表中

可以直接用復制粘貼功能做到。

在excel選擇要復制的范圍並復制，然後到 access 打開了表，用「粘貼追加」就可以了。關鍵的是兩者之間的格式屬性要對應。