利用VBA在EXCEL中實現自動將資料更新至ACCESS

如何在EXCEL中以VBA實作資料自動更新到ACCESS

這是我實作從Excel導資料進Access的程式碼，你可以參考一下：（確保Excel和Access檔在同一個資料夾下） 『`python import pandas as pd # 讀取Excel文件 excel_data = pd.read_excel('檔案路徑/檔案名稱.xlsx') # 連線Access資料庫 access_conn = pyodbc.connect('DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=檔案路徑/資料庫名稱.accdb') cursor = access_conn.cursor() # 將Excel資料插入Access表中 for index, row in excel_data.iterrows(): cursor.execute("INSERT INTO

##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如何刷新某一個工作表呢

可以透過在資料庫中新增數位簽章（數位簽章：巨集或文件上電子的、基於加密的安全驗證戳記。此簽章確認該巨集或文件來自簽發者且沒有被竄改。），表示您認為該資料庫是安全的並且其內容是可信的。這可以幫助資料庫的使用者確定是否信任該資料庫及其內容。

用於對資料庫進行數位簽署的過程取決於資料庫是使用 Microsoft Office Access 2007 檔案格式（如 .accdb 檔案）還是先前的格式（如 .mdb 檔案）。不過，這兩種流程都要使用安全憑證。

可以使用商業安全證書，也可以建立自己的安全證書。本主題說明如何建立自己的安全憑證。

開始之前

若要新增數位簽名，必須先取得或建立安全性憑證。將安全證書視為用於進行數位簽章的簽字筆或您專用的封蠟章。

如果您沒有安全證書，可以使用 SelfCert 工具（隨 Microsoft Office 一起提供）建立一個。

建立自簽名憑證

1、在 Microsoft Windows 中，按一下“開始”按鈕，依序指向“所有程式”、“Microsoft Office”和“Microsoft Office 工具”，然後按一下“VBA 專案的數位憑證”。

- 或 -

透過瀏覽找到 Office 專業版 2007 程式文件所在的資料夾。預設資料夾是磁碟機：\Program Files\Microsoft Office\Office12。在該資料夾中，請找到並雙擊“SelfCert.exe”。

將出現「建立數位憑證」對話方塊。

2、在「您的憑證名稱」方塊中，鍵入新測試憑證的名稱。

3、點選兩次「確定」。

註解 如果您未看到「VBA 專案的數位憑證」指令或找不到 SelfCert.exe，則可能需要安裝 SelfCert。 ###

以上是利用VBA在EXCEL中實現自動將資料更新至ACCESS的詳細內容。更多資訊請關注PHP中文網其他相關文章！