.net 多个用户从应用程序更新Excel
我在Visual Studio 2013中创建了一个表单,用于多个用户同时在Excel中输入数据。除非两个用户同时打开表单,或者其中一个用户单击了提交,并且表单仍在处理中,否则它工作得非常好。然后显示另一个人的以下错误 应用程序中发生未处理的异常。 来自HRESULT的异常:0x800A03EC 有什么可以帮我纠正的吗.net 多个用户从应用程序更新Excel,.net,excel,vb.net,visual-studio-2013,.net,Excel,Vb.net,Visual Studio 2013,我在Visual Studio 2013中创建了一个表单,用于多个用户同时在Excel中输入数据。除非两个用户同时打开表单,或者其中一个用户单击了提交,并且表单仍在处理中,否则它工作得非常好。然后显示另一个人的以下错误 应用程序中发生未处理的异常。 来自HRESULT的异常:0x800A03EC 有什么可以帮我纠正的吗 Imports excel = Microsoft.Office.Interop.Excel Imports System.Runtime.InteropServices Pu
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
错误消息是什么?@JohnKoerner我已编辑了我的问题并添加了错误。此Excel工作簿保存在哪里?它是某种共享驱动器吗?如何连接到共享驱动器?我对共享驱动器上的共享工作簿有一个非常类似的问题(直接操作,而不是通过vb.net)。@Eleshar ya工作簿保存在共享驱动器中。使用此表单和excel文件的人将获得驱动器的链接。我个人怀疑这是由于偶尔连接不稳定造成的-当工作簿保存时,它似乎被其他人关闭以进行任何形式的编辑。对我来说,这会阻止其他人在这段时间内储蓄,所以我怀疑你的问题也会类似。不确定是否可以在脚本中解决此问题。错误消息是什么?@JohnKoerner我已编辑了我的问题并添加了错误。此Excel工作簿保存在哪里?它是某种共享驱动器吗?如何连接到共享驱动器?我对共享驱动器上的共享工作簿有一个非常类似的问题(直接操作,而不是通过vb.net)。@Eleshar ya工作簿保存在共享驱动器中。使用此表单和excel文件的人将获得驱动器的链接。我个人怀疑这是由于偶尔连接不稳定造成的-当工作簿保存时,它似乎被其他人关闭以进行任何形式的编辑。对我来说,这会阻止其他人在这段时间内储蓄,所以我怀疑你的问题也会类似。不确定是否可以在脚本中解决此问题。