正在检查打开的文件 vb.net
Checking file open vb.net
我在 visual studio 2013 年创建了一个表单,用于将数据填充到 excel 文件中。加载表单后,文件对用户可见。
我的 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
我的问题已通过以下方式解决:
If workbook.MultiUserEditing Then
workbook.AcceptAllChanges()
workbook.Save()
End If
我在 visual studio 2013 年创建了一个表单,用于将数据填充到 excel 文件中。加载表单后,文件对用户可见。
我的 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
我的问题已通过以下方式解决:
If workbook.MultiUserEditing Then
workbook.AcceptAllChanges()
workbook.Save()
End If