Question

目前，我正在启动一个涉及2台PC的新项目。一台PC将有一张用于数据输入的Excel工作表。另一个将有另一个Excel工作表用于显示数据输入的数据。这两台PC将连接到服务器，并将使用相同版本的Excel。

我现在正在计划的是让显示器频繁地检测数据输入的变化，以便数据准确。我知道如果两个文件都在使用VBA的同一台PC上打开，这可以工作。

但是，如果两个文件都在不同的PC上，我无法弄清楚如何做到这一点。是否可以简单地使用VBA进行操作，还是需要其他东西来帮助我？

Answer 1

我想我找到了解决方案。

在进一步在线挖掘并进行了一些更改后，我想出了这个：

Option Explicit

Sub Read()
On Error GoTo ErrHandler
Application.ScreenUpdating = False

Dim src As Workbook

' open data entry in read-only
Set src = Workbooks.Open("C:\Users\Documents\EXCEL MONITORING FILE.xlsx", True, True)

' count rows from data entry
Dim iTotalRows As Integer
iTotalRows = src.Worksheets("Source").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Rows.Count

' copy data.
Dim iCnt As Integer         
For iCnt = 1 To iTotalRows
    Worksheets("Display").Range("A1:W1" & iCnt).Formula = src.Worksheets("Source").Range("A1:W1" & iCnt).Formula
Next iCnt

' close data entry read only.
src.Close False             
Set src = Nothing

ErrHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

现在工作正常。

如何使用VBA在2个不同的PC中链接2个单独的Excel工作表？

1 个答案: