Excelワークシートがボタンのテキストボックスからリフレッシュされます。Visual Basicをクリックします。

Question

Excelワークシートにテキストボックス値を送信するコードを作成します。私がボタンを押すたびに、テキストボックス値が前の値に置き換えられます。私がすでに行ったことは、この値をExcelワークシートに送信するだけですが、新しいクリックごとに新しいWorkbookの開きがあります。私は何を変えるべきですか？ここ

コード

Imports System.Data.OleDb 
    Imports Excel = Microsoft.Office.Interop.Excel 

Public Class Form1 
Dim objApp As Excel.Application 
Dim objBook As Excel._Workbook 
Dim objBooks As Excel.Workbooks 
Dim objSheets As Excel.Sheets 
Dim objSheet As Excel._Worksheet 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    ' Create a new instance of Excel and start a new workbook. 
    objApp = New Excel.Application() 
    objBooks = objApp.Workbooks 
    objBook = objBooks.Add 
    objSheets = objBook.Worksheets 
    objSheet = objSheets(1) 

    objSheet.Range("A1").Value = TextBox1.Text 

    'Return control of Excel to the user. 
    objApp.Visible = True 
    objApp.UserControl = True 

    'Clean up a little. 
    objSheet = Nothing 
    objSheets = Nothing 
    objBooks = Nothing 
End Sub 
End Class 

Answer 1

で

objApp = New Excel.Application() 

次のように私は簡素化したい：

Public Class Form1 
    Dim objApp As Excel.Application 
    Dim objCell As Excel.Range  

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  

     If objCell Is Nothing Then 
      objApp = New Excel.Application() 
      objCell = objApp.Workbooks.Add.Worksheets(1).Range("A1") 
     End If 

     objCell.Value = TextBox1.Text 

     'Return control of Excel to the user. 
     objApp.Visible = True 
     objApp.UserControl = True  

    End Sub 
End Class 

このコードは、Excel

Answer 2

変更はこれです：

If objApp Is Nothing Then 
    objApp = New Excel.Application() 
End If 

Answer 3

を閉じるユーザーとして、このような状況に対処するために、より堅牢ななされるべきである。この最後にやった仕事

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    If objApp Is Nothing Then 
     objApp = New Excel.Application() 
    End If 
    If objBooks Is Nothing Then 
     objBooks = objApp.Workbooks 
    End If 
    If objBook Is Nothing Then 
     objBook = objBooks.Add 
    End If 
    If objSheets Is Nothing Then 
     objSheets = objBook.Worksheets 
    End If 
    If objSheet Is Nothing Then 
     objSheet = objSheets(1) 
    End If 


    objSheet.Range("A1").Value = TextBox1.Text 

    'Return control of Excel to the user. 
    objApp.Visible = True 
    objApp.UserControl = True 

    'Clean up a little. 
    objSheet = Nothing 
    objSheets = Nothing 
    objBooks = Nothing 
End Sub 

は