vba導入access資料庫數據

『壹』 如何將excel中的數據用vba代碼存入access文件中

以下是我用了實現從Excel導數據進ACCESS的代碼，你參考一下，應該就可以做出來了：（Excel和Access兩個文件放一個文件夾下）
Public Sub 客戶正常供價批量維護()
If Cells(4, 6) = "" Then
MsgBox "請先選擇需要維護價格的系統！", vbInformation
Cells(4, 6).Select
Exit Sub
Else

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k為整數變數；sht 為excel工作表對象變數，指向某一工作表
Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接資料庫信息；請先添加ADO引用
Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
Dim strCn As String, strSQL As String '字元串變數
Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定義資料庫鏈接字元串
cn.Open strCn '與資料庫建立連接，如果成功，返回連接對象cn

Set rs = New ADODB.Recordset
rs.Open "dbl直營客戶正常供價表", cn, adOpenKeyset, adLockOptimistic

k = Cells(4, 8) + 8
For i = 9 To k
If Cells(i, 7) = "" Then

Else
rs.AddNew
rs(1) = Cells(i, 2)
rs(2) = Cells(i, 7)
rs(3) = Cells(i, 8)

rs.Update
Cells(i, 7) = ""
Cells(i, 8) = ""

End If
Next
MsgBox "數據記錄添加成功！", vbInformation
Cells(4, 6).Select
ActiveWorkbook.RefreshAll

add_exit:
Exit Sub
End If
add_err:
MsgBox Err() & vbCrLf & Error()
Resume add_exit
End Sub

『貳』 如何將access中將數據導入excel,用VBA編程實現

錄制下 操作過程
數據 導入數據 新建連接數據源
找到
其他裡面 有 odbc access的，具體按部就班，選擇好後確定
停止錄入
查看錄入好的過程，
只需要更改其中 access文件路徑部分 就是你需要的vba過程

『叄』 vba access 將Access數據導入到sqlserver

吧sqlserver作為數據源，可以直接導的。你查查

docmd.exprot.......

『肆』 excel表格或數組使用vba如何批量導入到access資料庫中

Excel VBA 還沒有能夠像 DataGridView 這種控制項整批上傳數據到 Access 的功能

『伍』 access怎麼將excel表格導入access的vba

我想你是想問怎麼將excel導入到access。因為VBA是個工具，所以不存在導入數據
導入到access具體思路如下：
1、建立資料庫鏈接
2、讀取excel文件
3、在資料庫創建表
4、將數據寫入新建的表
5、關閉excel文件
6、關閉資料庫鏈接
具體代碼網上很多，輸入關鍵字搜索既可。另外不同的資料庫版本，資料庫鏈接代碼可能不同。

『陸』 在EXCEL VBA的基礎上，怎樣通過ADO將ACCESS資料庫A中的表a導入到另外一個ACCESSS資料庫B中呢

使用ADO運行Insert 語句，一條條插入到Access或許可行吧。不過貌似將數據從mdbA.tableA讀入處理後生成SheetB，然後再mdbB中讀入SheetB比較省事吧，那要看你的應用是怎樣的了。貌似，Excel增強集工具有個「連結外部數據」的功能，要不樓主找找看吧

『柒』 如何將excel中的數據用vba代碼存入access文件中

以下是我用了實現從Excel導數據進ACCESS的代碼，你參考一下，應該就可以做出來了：（Excel和Access兩個文件放一個文件夾下）
Public Sub 客戶正常供價批量維護()
If Cells(4, 6) = "" Then
MsgBox "請先選擇需要維護價格的系統！", vbInformation
Cells(4, 6).Select
Exit Sub
Else

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k為整數變數；sht 為excel工作表對象變數，指向某一工作表
Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接資料庫信息；請先添加ADO引用
Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
Dim strCn As String, strSQL As String '字元串變數
Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定義資料庫鏈接字元串
cn.Open strCn '與資料庫建立連接，如果成功，返回連接對象cn

Set rs = New ADODB.Recordset
rs.Open "dbl直營客戶正常供價表", cn, adOpenKeyset, adLockOptimistic

k = Cells(4, 8) + 8
For i = 9 To k
If Cells(i, 7) = "" Then

Else
rs.AddNew
rs(1) = Cells(i, 2)
rs(2) = Cells(i, 7)
rs(3) = Cells(i, 8)

rs.Update
Cells(i, 7) = ""
Cells(i, 8) = ""

End If
Next
MsgBox "數據記錄添加成功！", vbInformation
Cells(4, 6).Select
ActiveWorkbook.RefreshAll

add_exit:
Exit Sub
End If
add_err:
MsgBox Err() & vbCrLf & Error()
Resume add_exit
End Sub

『捌』 excel vba sql語句excel工作簿導入到access資料庫

select * 那裡把*換成你想導入的列名就行了。
例如
select 產品,型號,價格
注意列名之間用英文逗號分隔。

『玖』 利用vba將excel數據導入指定的access

Sub 把Excel數據插入資料庫中()
'*******************************************
'時間：2010-06-28
'作者：bengdeng
'功能：把當前工作表的數據增加到在程序文件同一目錄下進銷存表資料庫中
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x為版本號，可能會因為你安裝的office的版本不同而不同，本例引用了2.5版
'發布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
Dim tStr As String
'資料庫名，請自行修改，路徑與當前工作簿在同一目錄
WN = "進銷存表.mdb"
'資料庫的表名與當前工作表名一致
TableName = ActiveSheet.Name

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"
conn.Execute sSql
MsgBox "成功把數據插入到「" & TableName & "」中！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub

『拾』 EXCELvba寫入ACCESS資料庫表

第一步：連接資料庫，下面是參考代碼
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mypath
conn.ConnectionString = conn.ConnectionString & ";Jet OLEDB:Database Password=1"
conn.Open
第二步：插入數據，參考代碼如下：

Sql = "insert into skmxb (內部管理號,收款日期,金額"
Sql = Sql & ") values ('" & nbglH & "', #" & Format(myD, "yyyy/mm/dd") & "#,"
Sql = Sql & jE
Sql = Sql & ")"
conn.Execute Sql