B-02設(shè)共享工作簿，跟A-01關(guān)聯(lián)。A-01改完數(shù)據(jù)保存，B-02保存后就能看到最新數(shù)據(jù)，不用關(guān)文件。

您好，方法有很多的
例如
局域網(wǎng)中有Sharepoint服務(wù)端，可以直接通過Excel訪問服務(wù)端上的數(shù)據(jù)庫，
如下圖，但Sharepoint似乎并不是非常普及，所以還提供了其他方法

以下是最適合新手的最簡方法，只要求Excel/Access及局域網(wǎng)的通暢不需要其他工具或知識，假設(shè)要與Access連接的Excel表格如下：

3.打開Access，點擊外部數(shù)據(jù)（如下圖所示），再點擊Excel（如下圖所示）

4.點擊【瀏覽】或直接輸入Excel路經(jīng)，局域網(wǎng)中要先將Excel文檔共享，
選中【通過創(chuàng)建鏈接表....】項，單擊【確定】

5.如果Excel中數(shù)據(jù)包含分類標題，例如“姓名”、"性別"等，請勾選【第一行包含標題】，點擊【下一步】或【完成】即可完成對接

注意:
1.此方法的缺點在于僅限單向連接，即Excel端發(fā)生更改，Access端可同步接收Excel的數(shù)據(jù)變動，但在Access端無法對數(shù)據(jù)進行操作
2.務(wù)必常常對Access進行存檔，否則Excel端關(guān)閉后Access端可能發(fā)生數(shù)據(jù)丟失

拓展：
另外還可以通過VB創(chuàng)建控件的方法，在IE中進行數(shù)據(jù)的瀏覽與更改，此方法將同時同步Excel與Access中的數(shù)據(jù)，但需要一定的VB編程基礎(chǔ)，這里提供源碼，有興趣可以研究研究，并不是很難
Imports SystemImports System.Windows.FormsImports Microsoft.Office.Excel.WebUIImports Microsoft.SharePointImports Microsoft.SharePoint.WebPartPagesNamespace AddEWATool ''' <summary> ''' Form1 class derived from System.Windows.Forms. ''' </summary> Partial Public Class Form1 Inherits Form Private appName As String = "AddEWATool" Private specifyInputError As String = "Please add a site URL, for example, http://myserver/site/" Private openSiteError As String = "There was a problem with the site name. Please check that the site exists." Private addWebPartError As String = "There was a problem adding the Web Part." Private successMessage As String = "Web Part successfully added." ''' <summary> ''' Add the Excel Web Access Web Part to the Default.aspx page of the specified site. ''' </summary> ''' <param name="siteName">URL of the SharePoint site</param> ''' <param name="book">URI to the workbook</param> ''' <returns>Returns true if the WebPart was successfully added; otherwise, false.</returns> Public Function AddWebPart(ByVal siteName As String, ByVal book As String) As Boolean Dim site As SPSite = Nothing Dim targetWeb As SPWeb = Nothing Dim webPartManager As SPLimitedWebPartManager = Nothing Dim b As Boolean = False progressBar1.Visible = True progressBar1.Minimum = 1 progressBar1.Maximum = 4 progressBar1.Value = 1 progressBar1.Step = 1 If String.IsNullOrEmpty(siteName) Then MessageBox.Show(specifyInputError, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Return b End If Try Try site = New SPSite(siteName) targetWeb = site.OpenWeb() Catch exc As Exception MessageBox.Show(openSiteError & vbLf & exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) progressBar1.Value = 1 Return b End Try progressBar1.PerformStep() Try ' Get the shared Web Part manager on the Default.aspx page. webPartManager = targetWeb.GetLimitedWebPartManager( _ "Default.aspx", _ System.Web.UI.WebControls.WebParts.PersonalizationScope.Shared) Catch exc As Exception MessageBox.Show(openSiteError & vbLf & exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) progressBar1.Value = 1 Return b End Try progressBar1.PerformStep() 'Instantiate Excel Web Access Web Part. 'Add an Excel Web Access Web Part in a shared view. Dim ewaWebPart As New ExcelWebRenderer() ewaWebPart.WorkbookUri = book progressBar1.PerformStep() Try webPartManager.AddWebPart(ewaWebPart, "Left", 0) Catch exc As Exception MessageBox.Show(addWebPartError & vbLf & exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) progressBar1.Value = 1 Return b End Try Finally If Not IsNothing(site) Then site.Dispose() End If If Not IsNothing(targetWeb) Then targetWeb.Dispose() End If If Not IsNothing(webPartManager) Then webPartManager.Dispose() End If End Try progressBar1.PerformStep() b = True Return b End Function ''' <summary> ''' AddEWAButton click handler. ''' </summary> ''' <param name="sender">caller</param> ''' <param name="e">event</param> Private Sub AddEWAButton_Click(ByVal sender As Object, ByVal e As EventArgs) Dim siteUrl As String = textBox1.Text Dim bookUri As String = textBox2.Text Dim succeeded As Boolean = AddWebPart(siteUrl, bookUri) If succeeded Then MessageBox.Show(successMessage, appName, MessageBoxButtons.OK, MessageBoxIcon.Information) progressBar1.Value = 1 End If End Sub End ClassEnd Namespace

關(guān)注ing

你真是高手啊 ！！！！！！什么都考慮的周到,自嘆不如

設(shè)定已有內(nèi)容區(qū)域的修改權(quán)限能解決您的問題不？

1把目標文件放入共享文檔中，進行共享設(shè)置及授權(quán)，直至文檔下面出現(xiàn)一只托舉的手 。
2打開excel表格----文件----選項----高級-----計息此工作簿時（）：----在---更新指向其他 文檔 的鏈接（d）的框中打鉤。
3在共享的電腦的運行中鍵入共享電腦局域網(wǎng)的網(wǎng)址，進行共享設(shè)置

以后打開電腦時會自動更新。

工具，共享工作薄

很簡單，數(shù)據(jù)菜單，合并計算（或者分類匯總），引用位置，瀏覽，網(wǎng)上鄰居，找到ACCESS就可以了！