Dim xlApp As Microsoft.Office.Interop.Excel._Application = Nothing
Dim xlWorkBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim xlWorkSheet1 As Microsoft.Office.Interop.Excel.Worksheet = Nothing
Dim xlWorkSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing
xlApp=New Microsoft.Office.Interop.Excel.ApplicationClass
xlApp.DisplayAlerts=False
xlWorkBooks=xlApp.Workbooks
xlWorkBook=xlWorkBooks.Open(fileName_invoke)
xlApp.Visible = False
xlWorkSheets=xlWorkBook.Sheets
xlWorkSheet1= CType(xlWorkSheets(1),Microsoft.Office.Interop.Excel.Worksheet)
xlWorkSheet1.Range(“A1:K21”).Borders.LineStyle = XlLineStyle.xlContinuous
xlApp.ActiveWindow.Zoom = 100
xlWorkBook.Save()
xlWorkBook.Close() 'Book を閉じる
xlWorkBook = Nothing
xlApp.Quit() 'Quit メソッドを使って Excel を終了します。
xlApp = Nothing