多人共用Excel的两种解决办法-信息化专区

多人共用Excel的两种解决办法

作者：windfloewrz 编辑：叶明 2007-04-20 09:48

多人共用Excel 的两种解决办法

　　根据上述两种处理机制，笔者提供两种实现多人共用Excel的解决办法，以飨读者。

　　使用Excel Shared Workbook 功能

我们可以使用 Excel Shared Workbook 功能，将所要操作的文档设置成网络共享并可多人编辑的状态。这样多个用户即可在网络环境下同时操作该文档。用VB代码来实现的时候，同样可以正常运行。这种解决办法实现步骤如下：

　　1. 在Network Server机器上，打开所要操作的Excel文件；

　　2. 点击Tools>Share Workbook，在Editing Tab，勾选“Allow changes by more than one user at the same time….”；

　　3. 点击OK两次，然后关闭该文件；

　　4. 然后，可以测试如下的示例代码，当两个用户同时打开并修改该文档时，系统会正常运行。此时应注意：需要修改"strFilnavnBane = "\\UNCPatch" & "\" & strFilNavn"为自己所对应的网络路径。

　　Private Sub Form_Load()

　　Dim lngJaNei As Long

　　Dim mxl As Excel.Application

　　Dim wb As Excel.Workbook

　　Dim strVar As String

　　Dim strFilnavnBane As String

　　Dim strBane As String

　　Dim strFilNavn As String

　　strFilNavn = "Venteliste.xls"

　　strBane = CurDir

　　strFilnavnBane = "\\UNCPatch " & "\" & strFilNavn

　　Set mxl = CreateObject("Excel.application")

　　'mxl.Visible = True

　　strVar = Dir(strFilnavnBane)

　　If strVar = "" Then

　　MsgBox "Finner ikke ventelisten: " & strFilnavnBane

　　Exit Sub

　　End If

　　mxl.Workbooks.Open FileName:=strFilnavnBane ', UpdateLinks:=0, ReadOnly:=0, notify:=True

　　On Error Resume Next

　　mxl.Activate

　　mxl.ActiveWorkbook.Sheets(1).Range("A4") = 66

　　mxl.Workbooks(strFilNavn).Close True

　　MsgBox "Filen is closed"

　　Application.Quit

　　End

　　Exit Sub

　　End Sub

关注我们