多个用户从应用程序更新Excel

我在Visual Studio 2013中创build了一个表单，用于同时在多个用户的Excel中input数据。 除非两个用户同时打开表单，或者点击了提交并且表单仍在处理，否则它工作得很好。 然后显示对方的以下错误。

在您的应用程序中发生未处理的exception。 来自HRESULT的exception：0x800A03EC

任何帮助，我可以如何纠正这一点？

Imports excel = Microsoft.Office.Interop.Excel Imports System.Runtime.InteropServices Public Class Form1 Dim xlapp As New excel.Application Dim workbook As excel.Workbook Dim worksheet As excel.Worksheet Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load workbook = xlapp.Workbooks.Open("2.xlsx") xlapp.Visible = False worksheet = workbook.Sheets("sheet1") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If workbook.MultiUserEditing Then workbook.AcceptAllChanges() workbook.Save() End If Dim row As Long Dim alpha As Long = 0 row = 5 With worksheet Do While .Cells(row, 4).value IsNot Nothing row = row + 1 Loop .Cells(row, 2).value = Me.fname.Text .Cells(row, 3).value = Me.lname.Text Me.fullname.Text = Me.fname.Text + Me.lname.Text .Cells(row, 4).value = Me.fullname.Text End With xlapp.DisplayAlerts = False workbook.SaveAs("2.xlsx", AccessMode:=excel.XlSaveAsAccessMode.xlShared) End Sub End Class