vba導入access資料庫資料庫

① 如何將excel的工作表內容通過VBA代碼導入到有密碼的access資料庫中

試下

ssql="InsertInto[;DataBase="&mydb_mdb&";pwd=123456]."&TableName&"Select*From["&ActiveSheet.Name&"$]"

② 如何用vba將ACCESS窗體和查詢導入另一個資料庫中

Access是微軟Office組件的資料庫軟體，使用它可以進行簡單的資料庫軟體的開發。但Access的圖表功能和數據分析功能不如Excel強大，常用的做法可以將Access中的數據導入Excel中再進行處理。
代碼利用ADO組件可以方便地對各種數據進行連接和訪問。ADO組件中的Connection對象可以實現對資料庫的連接，並可以快速實現SQL語句的執行，然後再用VBA將SQL查詢的結果輸出到Excel表格中。
打開VBE窗口，選擇菜單「工具」一「引用」，勾選MicrosoftActiveXDataObjects2.8Library，並單擊「確定」按鈕。
利用ADO連接資料庫ADO的全稱是ActiveXDataObject，是一個用於存取數據源的COM組件，用以快速實現各種資料庫的連接、讀取、寫入。在ADO組件中有一個Connection對象，利用Connection對象的Open方法可以實現資料庫的連接。

③ 如何用vba代碼將access資料庫連接求代碼

Microsoft Office Access是由微軟發布的關系資料庫管理系統。它結合了 MicrosoftJet Database Engine 和 圖形用戶界面兩項特點，是 Microsoft Office 的系統程序之一。用vba代碼將access資料庫連接求代碼，代碼如下：

Sub FYMXDL()

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性質

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODB.Recordset

mYpath = ThisWorkbook.Path & "jzfydata.accdb"

Set cONn = CreateObject("ADODB.Connection")

cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath

cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "

cONn.Open

XQID = Cells(3, 2).Value

JZID = Cells(3, 5).Value

'清空改小區-建築的費用明細

Sql = "delete from fymxb where 小區ID=" & XQID & " AND 建築ID = " & JZID

cONn.Execute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3).Value > 0

FYID = Cells(hh, 3).Value

FBXZ = Cells(hh, 11).Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)

Next i

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONn.Execute Sql

hh = hh + 1

Loop

End Sub

④ excel vba sql語句excel工作簿導入到access資料庫

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

⑤ 如何用vba代碼將access資料庫連接求代碼

下面這段程序是連接資料庫，並將excel表格內容寫入資料庫。代碼如下：
Sub FYMXDL()
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String '分包性質
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'清空改小區-建築的費用明細
Sql = "delete from fymxb where 小區ID=" & XQID & " AND 建築ID = " & JZID
cONn.Execute Sql
Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
Sql = "INSERT INTO fymxb(小區ID,建築ID,費用ID,分包性質,工作量,單價合計_中標,人工費_中標, 主材費_中標, 輔材費_中標, 機械費_中標, 管理費_中標, 利潤_中標,規費_中標,稅金_中標,合價_中標,單價合計_標准成本,人工費_標准成本,主材費_標准成本,輔材費_標准成本,機械費_標准成本,管理費_標准成本,利潤_標准成本,規費_標准成本,稅金_標准成本,合價_標准成本,單價合計_實際成本,人工費_實際成本,主材費_實際成本,輔材費_實際成本,機械費_實際成本,管理費_實際成本,利潤_實際成本,規費_實際成本,稅金_實際成本,合價_實際成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"
For i = 1 To 31
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"

cONn.Execute Sql
hh = hh + 1
Loop
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

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

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

⑧ 請問EXCEL如何用VBA將同一工作簿內的多個工作表的內容導入至ACCESS的一個表中

Subttt()
Dimconn
Setconn=CreateObject("adodb.connection")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:Test.mdb"
conn.Open
conn.Execute"insertinto表名(A,B,C)select*from[Excel8.0;DataBase="&ActiveWorkbook.FullName&"].[表1$]"
conn.Execute"insertinto表名(B,D,E)select*from[Excel8.0;DataBase="&ActiveWorkbook.FullName&"].[表2$]"
conn.Execute"insertinto表名(A,D)select*from[Excel8.0;DataBase="&ActiveWorkbook.FullName&"].[表3$]"
conn.Close
Setconn=Nothing
EndSub

以上代碼寫在excel中，

E:Test.mdb為access資料庫完整路徑，「表名」為access目標表名

代碼執行3次sql命令將3個表導入

⑨ Excel VBA連接ACCESS資料庫

stpath=ThisWorkbook.Path&Application.PathSeparator&"attendance.accdb"
CN.Open"Provider=Microsoft.ACE.OLEDB.12.0;DataSource="&stpath&";JetOLEDB:DatabasePassword=cjw123456"

供參考。

⑩ EXCEL VBA 打開Access資料庫文件

一、導入方法：
Sub 把Excel數據插入資料庫中()
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

二、EXCEL的使用技巧：
（1） 分數的輸入
如果直接輸入「1/5」，系統會將其變為「1月5日」，解決辦法是：先輸入「0」，然後輸入空格，再輸入分數「1/5」。
（2） 序列「001」的輸入
如果直接輸入「001」，系統會自動判斷001為數據1，解決辦法是：首先輸入「'」（西文單引號），然後輸入「001」。
（3） 日期的輸入
如果要輸入「4月5日」，直接輸入「4/5」，再敲回車就行了。如果要輸入當前日期，按一下「Ctrl+；」鍵。
（4） 填充條紋
如果想在工作簿中加入漂亮的橫條紋，可以利用對齊方式中的填充功能。先在一單元格內填入「*」或「~」等符號，然後單擊此單元格，向右拖動滑鼠，選中橫向若干單元格，單擊「格式」菜單，選中「單元格」命令，在彈出的「單元格格式」菜單中，選擇「對齊」選項卡，在水平對齊下拉列表中選擇「填充」，單擊「確定」按鈕。
（5） 多張工作表中輸入相同的內容
幾個工作表中同一位置填入同一數據時，可以選中一張工作表，然後按住Ctrl鍵，再單擊窗口左下角的Sheet1、Sheet2......來直接選擇需要輸入相同內容的多個工作表，接著在其中的任意一個工作表中輸入這些相同的數據，此時這些數據會自動出現在選中的其它工作表之中。輸入完畢之後，再次按下鍵盤上的Ctrl鍵，然後使用滑鼠左鍵單擊所選擇的多個工作表，解除這些工作表的聯系，否則在一張表單中輸入的數據會接著出現在選中的其它工作表內。
（6） 不連續單元格填充同一數據
選中一個單元格，按住Ctrl鍵，用滑鼠單擊其他單元格，就將這些單元格全部都選中了。在編輯區中輸入數據，然後按住Ctrl鍵，同時敲一下回車，在所有選中的單元格中都出現了這一數據。
（7） 在單元格中顯示公式
如果工作表中的數據多數是由公式生成的，想要快速知道每個單元格中的公式形式，以便編輯修改，可以這樣做：用滑鼠左鍵單擊「工具」菜單，選取「選項」命令，出現「選項」對話框，單擊「視圖」選項卡，接著設置「窗口選項」欄下的「公式」項有效，單擊「確定」按鈕（如圖2）。這時每個單元格中的分工就顯示出來了。如果想恢復公式計算結果的顯示，就再設置「窗口選項」欄下的「公式」項失效即可。
（8） 利用Ctrl＋*選取文本
如果一個工作表中有很多數據表格時，可以通過選定表格中某個單元格，然後按下Ctrl＋*鍵可選定整個表格。Ctrl＋*選定的區域為：根據選定單元格向四周輻射所涉及到的有數據單元格的最大區域。這樣我們可以方便准確地選取數據表格，並能有效避免使用拖動滑鼠方法選取較大單元格區域時屏幕的亂滾現象。
（9） 快速清除單元格的內容
如果要刪除內容的單元格中的內容和它的格式和批註，就不能簡單地應用選定該單元格，然後按Delete鍵的方法了。要徹底清除單元格,可用以下方法：選定想要清除的單元格或單元格範圍；單擊「編輯」菜單中「清除」項中的「全部」命令，這些單元格就恢復了本來面目。