vba壓縮access資料庫

Ⅰ 如何用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 打開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鍵的方法了。要徹底清除單元格,可用以下方法：選定想要清除的單元格或單元格範圍；單擊「編輯」菜單中「清除」項中的「全部」命令，這些單元格就恢復了本來面目。

Ⅲ 如何用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方法可以實現資料庫的連接。

Ⅳ 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