Kod:
Dim xls As New Excel.Application
Dim w As Excel.Workbook = xls.Workbooks.Open("C:\deneme.xls")
xls.Visible = True
w.Sheets("Sayfa3").range("C6") = TextBox1.Text
w.Sheets("Sayfa3").Activate()
"w.Sheets("Sayfa3").Activate()"