2016-11-17 3 views
1

Я создал форму в visual studio 2013, которая заполняет данные в файл excel. Когда форма загружается, файл становится видимым для пользователей.Проверка файла open vb.net

Мой файл excel будет доступен нескольким пользователям. Проблема заключается в том, что мой код перезаписывает данные другого человека. Как обновить файл excel, чтобы на всех компьютерах все пользователи могли видеть новые изменения?

Пожалуйста, помогите.

EDIT: Мой код:

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 
Смежные вопросы