2016-11-17 109 views
1

我在visual studio 2013中创建了一个表单,它将数据填充到excel文件中。当表单加载时,该文件对用户可见。检查文件打开vb.net

我的excel文件将被多个用户共享。问题是我的代码重写了他人的数据。 如何刷新excel文件,以便在所有计算机上所有用户都可以看到新进行的更改?

请帮忙。

编辑:我的代码:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    workbook.ReadOnlyRecommended = True 
    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.ReadOnlyRecommended = False 

    If workbook.MultiUserEditing Then 
     workbook.AcceptAllChanges() 
     workbook.Save() 
    End If 

    workbook.SaveAs("\test.xlsx",AccessMode:=excel.XlSaveAsAccessMode.xlShared) 
    workbook.Close() 
    Call Form1_Load(sender, EventArgs.Empty) 

End Sub 
+0

请解释一下为什么我在这个问题上得到反对票! – user5538704

+1

事实上,你基本上是要求SO用户写你的代码,而不是显示你的尝试和你的研究。也没有帮助**这是紧急**像我们应该都放弃我们正在做的事情:) – Bugs

+0

我很抱歉不是这个意思。我添加了我的代码@ Jinx88909 – user5538704

回答

1

我的问题是使用解决:

If workbook.MultiUserEditing Then 
     workbook.AcceptAllChanges() 
     workbook.Save() 
    End If