Imports System.Threading
Public Class Form1 : Inherits Form
Dim Trasferisci As Threading.Thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Trasferisci As New Threading.Thread(AddressOf trasferisciSSC)
Trasferisci.Start()
End Sub
Private Sub trasferisciSSC()
Dim oExcel As Object
oExcel = CreateObject("Excel.Application")
Dim oBook As Object
oBook = oExcel.Workbooks.Open("...\Test Kill Excel.xlsx")
Dim osheet0 As Object
osheet0 = oBook.Worksheets(1)
osheet0.Activate()
osheet0.Cells(1, 1).value = TextBox1.Text
oBook.Close(SaveChanges:=True)
osheet0 = Nothing
oBook = Nothing
oExcel = Nothing
End Sub
End Class