将工作簿变量设置为共享工作簿

时间:2014-09-10 10:30:04

标签: vba shared

我正在尝试使用多个工作簿,其中一个是共享工作簿。 就我的测试而言,看起来我无法将工作簿/工作表变量设置为共享工作库的变量。

有没有一种方法可以解决,或者如果没有首先取消共享,这是不可能的?

以下是我测试过的方法(将共享工作簿作为活动工作簿):

Sub TestAssign()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim r As Range

    With Workbooks("testSHARE.xlsb")
        Set ws = .Sheets(1)
    End With

    Set wb = ActiveWorkbook

    Set ws = wb.Sheets("Sheet1")
    Set ws = wb.Sheets(1)
    Set ws = ActiveSheet
    Set r = Range("A1:P5")

End Sub

1 个答案:

答案 0 :(得分:0)

如果为corraboration设置了共享工作簿,则可以修改共享工作簿。

安装程序在http://office.microsoft.com/en-us/excel-help/use-a-shared-workbook-to-collaborate-HP010096833.aspx解释。