2016-11-17 6 views
1

私はVisual Studio 2013でフォームを作成し、データをExcelファイルに取り込みました。フォームがロードされると、ファイルがユーザーに表示されます。ファイルを開くチェック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 
関連する問題